مبتدی: انتقال اطلاعات اکسس به اسکیوال

سلام خدمت اساتید محترم
خیلی جستجو کردم اما مورد مناسب پیدا نکردم
یه سوال دارم و اون اینکه میخوام   اطلاعات   بانک   اکسس   را با کد به   اسکیوال     انتقال   بدم (تعداد زیادی رکورد) البته با کد ویژوال بیسیک
کسی هست بتونه منو کمک کنه؟؟؟

با این کد اطلاعات را ویرایش میکنم

Dim Cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Cnxn As ADODB.Connection
Dim strCnxn As String

Set Cnxn = New ADODB.Connection

strCnxn = " Provider = sqloledb;Data Source = 'salarSQLEXPRESS'" & _
 ";Initial Catalog = 'mainP' ; Integrated Security = SSPI "
 Cnxn.Open strCnxn

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient

Set rst = Cnxn.Execute("UPDATE tbl_tran_snd SET codep = '" & Text22 & "' WHERE codea = " & Me.shmelli.Column(4))