tengo un problema amigos quisiera q me guien .puse este ejemplo de ado pero no me ejecuta.. :
Dim sTablaOrigen As String, sTablaDestino As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
' Establezco la conexión con la base de datos externa
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\Mis_ documentos\Libro1.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes;"""
sTablaDestino = "[Tabla Importada desde Excel]"
sTablaOrigen = "[WorkSheet1$]"
' Construimos la consulta SQL
sConnect = " 'D:\Mis documentos\Bd1.mdb' "
sSQL = "SELECT * INTO " & sTablaDestino & " IN " & sConnect & " FROM " &_ sTablaOrigen
' Exportamos la tabla a una base de datos Access
cnnActiva.Execute sSQL
' Cierro la conexión
cnnActiva.Close
hummm y noce q pasa ...seguro me faltaran referencias ... si alguno supiera q referencia me falta para poder ejecutar..se lo agradeceria. mucho..bueno gracias...
