De la bd sql vers access

Bonjour,

on a déja fé des relations entre vb.net et sql server ou vb.net et access(et c est ce qu on appelle ado.net)
mais le probleme c est que je veux insérer des données de la base de donnée sql vers access u le contraire
bon voila un code d une amie que j ai pas bien compris mais il marche trés bien
je veux bien que vous m aider à construire mon code ou bien au moins de me faire expliqué ce code là
merci infiniment pour votre aide

Imports System.Data.SqlClient
Imports System.Data.oledb
Public Class sql_to_access

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn1 As New SqlConnection("integrated security=sspi;server=localhost;initial catalog=nissma")
cn1.open()
Dim cn2 As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\nissmaccess.mdb")
Dim cmd1 As New SqlCommand("select*from nissma1", cn1)
Dim cmd2 As New OleDbCommand

Dim lect1 As SqlDataReader

Try
cn2.Open()

lect1 = cmd1.ExecuteReader
While lect1.Read
cmd2 = cn2.CreateCommand
cmd2.CommandText = String.Format("insert into nissmaccess1 values('{0}','{1}','{2}')", lect1(0), lect1(1), lect1(2))
cmd2.ExecuteNonQuery()
End While
lect1.Close()

Catch ex As SqlException
MsgBox(ex.Message)
Finally

cn1.Close()

End Try

End Sub
End Class
Si ton coeur est une rose ta bouche dit des mot parfumés 
n'oublier pas de cocher la case résolu si vouss arriverz à ce que vous voulez
Et bonne chance à tous

Configuration: Windows XP
Internet Explorer 6.0