sql + vb6

الكود التالى كنت استخدمه لفتح قواعد بيانات ACCESS وفتح جدول لاضافة سجل به

Dim Mydb As Database, MYset As Recordset, SQLq As String
 Set Mydb = DBEngine.OpenDatabase("tayeb.mdb")
  SQLq = "select * from ITEM where [ITNo] =" & Val(txtITno.Text)
 Set MYset = Mydb.OpenRecordset(SQLq, dbOpenDynaset)
 If MYset.RecordCount = 0 Then
   MYset.AddNew
   MYset("ITNo") = Val(txtITno.Text)
   MYset("ITName") = LTrim(RTrim(txtITName.Text))
   MYset.Update
   MYset.Close
    Mydb.Close

ما الواجب تغييره من هذا الكود اذا حولت الملف ACCESS إلى MS SQL