Hola estoy intentado acceder a una base de datos con mdb y me sale este mensaje:
No ser reconoce el formato e base de datos 'a:\vb\Nueva Carpeta\datos.mdb'
Esta es codigo:
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim sql As String
sql = "select cod,descripcion,precio from tabla"
Const path As String = "a:\vb\Nueva Carpeta\datos.MDB"
Set db = OpenDatabase(path)
'db.Execute (sql)
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
Dim a
a = rs.GetRows
If rs.EOF = True And rs.BOF = True Then
MsgBox "Nohay datos"
Else
With rs
MsgBox .Fields("cod")
MsgBox .Fields("descripcion")
MsgBox .Fields("precio")
End With
End If
End Sub
He cambiado la Base de datos, tando de sitio y hasta he creado otro con difente nuevo y sigue el mensaje.
Lo he probado en un 2000 y en un xp y na de na....
Alguien me puede ayudar????
Hasta lo he agregado Origines de datos ODBC de w2k
Gracias..