Visual Basic - Traspas datos Access->Sql

Una duda existencial tengo..Me gustaria crear a aprtir de una base de datos Acces una base de datos SQL Server, de manera agil o mas bien rapida / veloz.
Y no se komo?¿?!!¿?

Una manera , dos recordset y recoriendo todas las filas del recordset de acces, de cada tabla y ir metiendo en el de SQL... mu lento!!!

Me podeis exar una mano con.
Gracias.

Puedes utilizar el método GetString de ADO y una función para guardar el archivo:

FilToString MiRecordset.GetString(",",vbCrLF),App.Path & "\MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function

Y luego utilizar Bulk Copy con SQLDMO, esta es una forma para archivos planos delimitados por comas y terminados con salto de línea:

Dim loSQLServer As SQLServer, loBulkCopy AS BulkCopy

Set loSQLServer = New SQLServer
Set loBulkCopy = New BulkCopy

loSQLServer.Connect "Servidor","Usuario","Password"

With loBulkCopy
.DataFileType=1
.DataFilePath="C:\MiArchivo.txt"
End With

loSQLServer.Databases.Item("BaseDeDatos").Tables.Item("Tabla").ImportData(loBulkCopy)

En éste caso tienes que agregar la referencia a SQLDMO.

Buenas, gracias por la solucion.

Como añado la referencia
\"referencia a SQLDMO. \"

Entiendo ke esto lo tengo ke hacer tabla a tabla.
Osea archivo a archivo, no?¿?
Crear lineas y volkal con el loBulkCopy

Gracias.