Traspaso de base de datos

[Cony28]

Hola a todos:

Tengo un problema con el siguiente codigo, quiero trapasar la base de datos "comercio" de access a otra con el mismo nombre en SQl Server
,pero no me lo hace, el codigo es el siguiente:

Dim CnnS As Connection
Dim CnnA As Connection
Dim RsSQL As Recordset
Dim RsAcc As Recordset

Private Sub cmdConectaAccess_Click()
ConectaA
End Sub

Private Sub cmdConectaSQL_Click()
ConectaSQL
End Sub

Public Sub ConectaA()
Set CnnA = New Connection
With CnnA
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.ConnectionString = App.Path & "\comercio.mdb"
.Open
End With
Set RsAcc = New Recordset
RsAcc.Open "Select * from empresa", CnnA
End Sub

Public Sub ConectaSQL()
Set CnnS = New Connection
With CnnS
.Provider = "SQLOLEDB"
.ConnectionString = "User Id=alumno;Password=123;" & _
"Data Source=ServerSQL; " & _
"Initial Catalog =comercio"
.Open
End With
Set RsSQL = New Recordset
RsSQL.CursorLocation = adUseServer
RsSQL.Open "SELECT * FROM empresa", CnnS
End Sub

Private Sub cmdPasaDatos_Click()
Do While Not RsSQL.EOF
RsSQL!rut = RsAcc!rut
RsSQL!empresa = RsAcc!empresa
RsSQL!direccion = RsAcc!direccion
RsSQL!factura = RsAcc!factura
RsSQL!estado = RsAcc!estado
RsSQL.AddNew
Loop
End Sub