Visual Basic - Problemas con la Conección . :(

Tengo problemas cuando hago correr el programa, me sale el sgte msg: "Error 430 en tiempo de ejecución"
"Esta clase no admite Automatización o no admite la interfaz esperada"

cuando le doy depurar, este me indica que el error está en la cadena de conección, que lo coloco en un modulo sub main.

help me Please!!!

Hola Jorge!

Mandanos la cadena de conexion para poder determinar el error, nos ayudaria mucho.


Un saludo
lucKas

Para conectarte a la base de datos
Debes tener cargada la libreria dao3.5.dll


En el Form_Load()
Dim db as database

set db=opendatabase(app.path & "\Directorio donde esta la b.datos\nombrebd.mdb")

Dim cnn As adodb.Connection
Dim cmd As Command
Dim rs As adodb.Recordset
Set cnn = New Connection
Set cmd = New Command
Set rs = New Recordset
´//Database command connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & App.Path & " \tubase.mdb;"
With cmd
Set .ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = strsql
End With

With rs
.CursorLocation = adUseClient
.Open cmd, , adOpenForwardOnly, adLockReadOnly
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
Set .ActiveConnection = Nothing
End With
cnn.Close
Set cnn = Nothing
En un modulo de rutinas

A mi me ocurre lo mismo, si ya lo has solucionado, por favor dime ocmo lo has conseguido.Email:[email protected]
Gracias muchas....

yo tengo el mismo problema, si lo has resuelto mandame un email ([email protected])
Gracias.