Importar hoja de excel a access con visual basic 6.0

[lokoman]

Hola!!
Primero crea la tabla:

Código vb:

Str = "Create Table " & Trim(txtNombreBaseDatos.Text) & ".DBO."
        Str = Str & Trim(txtNombreTabla.Text) & " ("
        Str = Str & Trim(rec!campo) & " " & Trim(rec!tipo) & " " & "(" & Trim(rec!Long) & ") "
        Str = Str & Trim(rec!Key) 
        Str = Str & " DEFAULT '0')"
 
        Conn.Execute Str
 

Asegurate del nombre correcto de la hoja de excel (sTablaOrigen = "[WorkSheet1$A1:M50]"), Deberia ser:
sTablaOrigen = "[WorkSheet1$]" o sTablaOrigen = "[Hoja1$]"

Luego, puedes hacer el INSERT INTO.