ขอความรู้เกี่ยวกับ vb6.0 ติดต่อ SQL หน่อยครับๆๆๆๆๆๆ

Dim strConnectionString As String = "Driver={SQL Server};Server=localhost;Database=db_name;Uid=sa;Pwd=;"

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Set objRec = New ADODB.Recordset

strSQL = "SELECT * FROM.... "
Conn.ConnectionString = strConnectionString
Conn.Open


objRec.Open strSQL, Conn, 1, 3

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection

Conn.ConnectionString = strConnectionString
Conn.Open

strSQL = "INSERT INTO...."
Conn.Execute (strSQL)

If Err.Number <> 0 Then
Exit Function
End If

Conn.Close

Option Explicit
Public adoCn As New ADODB.Connection  'connectionติดต่อฐานข้อมูล
Public adoRs As New ADODB.Recordset    'เก็บชุดของข้อมูลที่ได้จากการประมวลผลคำสั่ง slq
Public sql As String
Public Sub DBCnn()  'µÔ´µèÍ°Ò¹¢éÍÁÙÅ
    With adoCn
    .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\checkstork.mdb;Persist Security Info=False"
    End With
End Sub

Private Sub cmdAdd_Click()
sql = ""
sql = "SELECT * FROM  product  where Pro_id='" & txtCodepro.Text & "'"
        'adoCn.Execute(sql).LockType = adLockOptimistic
        Set adoRs = Nothing   'เคลียร์เรคคอร์ดเซ็ต
            adoRs.Open sql, adoCn, adOpenKeyset, adLockReadOnly    'ชุดของการประมวลผลคำสั่ง
            If adoRs.EOF Then    'ตรวจสอบข้อมูลว่าพบข้อมูลหรือไม่ ถ้าไม่ทำบรรทัดถัดไป
                sql = ""
                sql = "INSERT INTO  product   values ('" & txtCodepro.Text & "','" & cmbCodebrand.Text & "','" & txtName.Text & "','" & txtNum.Text & "','" & txtPrice.Text & "','" & txtNet.Text & "')"
                Set adoRs = Nothing   'เคลียร์เรคคอร์ดเซ็ต
                adoRs.Open sql, adoCn, adOpenKeyset, adLockReadOnly    'ชุดของการประมวลผลคำสั่ง
                   MsgBox "เพิ่มข้อมูลเรียบร้อยแล้ว"
                   Call ClearAll
                Exit Sub  
            Else
                MsgBox "ไม่พบข้อมูล"
                Exit Sub
            End If
End Sub