error 80004005 en vb

[buxforever]

error 80004005 en vb me marca No se puede encontrar ISAM Instalable alguien sabe como resolverlo ya busque por todo el internet y no logro solucionarlo..

[buxforever]

Iniciado por buxforever

error 80004005 en vb me marca No se puede encontrar ISAM Instalable alguien sabe como resolverlo ya busque por todo el internet y no logro solucionarlo..

el codigo es el siguiente


Dim cat As ADOX.Catalog
Set Conexion_MDB = New ADODB.Connection
Set Rst_Mdb = New ADODB.Recordset
Set cat = New ADOX.Catalog
'
' Crear la base de datos
cat.Create "Provider=" & "Microsoft.Jet.OLEDB.4.0" & ";" & "Data Source=" & "c:\bd.mdb" & ";"

Conexion_MDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bd.mdb"

Conexion_MDB.Open
Rst_Mdb.ActiveConnection = "Provider= Microsoft.Jet.OLEDB.4.0;Data" & ";" & "Data Source= c:\ bd.mdb" & ";"
Rst_Mdb.CursorLocation = adUseClient
Rst_Mdb.CursorType = adOpenDynamic
Rst_Mdb.LockType = adLockBatchOptimistic

Conexion_MDB.Execute "CREATE TABLE nombre_tabla " & _
"(id autoincrement," & _
"nombre text(255)," & _
"apellidos text(255)," & _
"primary key(id))"

Conexion_MDB.Close
Set Conexion_MDB = Nothing

Set Rst_Mdb = Nothing
Set cat = Nothing