سلام
اين يه نمونه كد با ado هستش اميدوارم به دردتون بخوره:


Dim Cn As ADODB.Connection

 Dim rs, rs1 As ADODB.Recordset

Dim Cnxn As ADODB.Connection

Dim strCnxn As String



Set Cnxn = New ADODB.Connection

  

strCnxn = "Provider='SQLOLEDB';Data Source='.';" & _

             "Initial Catalog='DBName';User ID='sa';Password='DBPass';"

    Cnxn.Open strCnxn



Set rs = New ADODB.Recordset



rs.CursorLocation = adUseClient

rs.Open "select * from prescribe", Cnxn, adOpenDynamic, adLockOptimistic, 1



rs.AddNew

.

.

.

rs.Update