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

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

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

Dim Cn As ADODB.Coection

Dim rst As ADODB.Recordset

Dim Cnxn As ADODB.Coection

Dim strCnxn As String



Set Cnxn = New ADODB.Coection



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))