سوال درباره اتصال به جدول با SQL

سلام دوستان
دوستان من یک برنامه نوشتم و بانکش access بود حالا این برنامه رو بانکش رو دارم عوض می کنم و بانکش را دارم sql می کنم
حالا به یک مشکلی بر خوردم
من برای ارتباط با جدول از این دستور استفاده می کردم

 1

Adodc1.RecordSource = "select * from ChekModatDar "







 

توی sql معادل این چی میشه؟
ایم میشه؟

Dim db As New Connection

 Dim Adodc1 As New Recordset

 

 Adodc1.Open "select * from ChekModatDar", db, adOpenDynamic, adLockOptimistic

Private Sub Form_Load()

 

db.Open "provider=msdasql;driver={sql server};server=;id=;pwd=;database=shams"

Adodc1.CursorLocation = adUseClient

Adodc1.Open "select * from ChekModatDar", db, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = Adodc1

 

end sub

از طریق این کد هم به بانکم وصل شدم

از طریق این کد می خوام وصل شم به جدولم این پیغام رو میده:

Adodc1.Open "select * from ChekModatDar"

ضمیمه 79742