Visual Basic - ACCESO A BASE DE DATOS ACCESS

Buenas tardes, haber si alguna alma caritativa me ayuda, estoy empezando con basic asi que mis dudas son muy basicas( incluso ridiculas para alguien que sepa mas) tengo bastante codigo escrito, es el primer programa que hago asi que lo he ido haciendo a pedazos asi que al compilar se me ha venido todo abajo, bueno al grano

QUIERO ACCEDER A LA BASE DE DATOS Y SIEMPRE ME DA FALLOS, ELCODIGO ES ESTE:

Option Explicit

Dim db As Database
Dim TBL1 As Recordset
Dim INV As String
Dim con As Connection

Public Sub ALLA()

db = CurrentDb() ' el fallo siempre es aqui,,,,," EL USO DE LA PROPÌEDAD NO ES VALIDO"
INV = "Select * FROM INVENTARIO"
Set TBL1 = BDD.OpenRecordset(INV)

If TBL1.EOF Then
MsgBox ("NO SE ABRE LA BASE DE DATOS")
Else
MsgBox (" SE ABRE LA BASE DE DATOS")

End Sub

POR FAVOR DECIRME COMO ES, SI ESTA TODO MAL O LO QUE SEA

Muchas gracias

hola rafa, para abrir una tabla de access usando ado es facil, aunke algo viejo pero funciona y hara lo ke kieras

pones como referencia microsoft ado ext 6.0 for dll etc...

al iniciop del form pones esto:

Dim rec As Recordset
Dim bd As Connection
Dim SQL As String

para conectar usas esto:

Set db = OpenDatabase("rutadetutabla.mdb")
SQL = "SELECT * FROM tutabla WHERE campo LIKE '" & Text1.Text & "'"
Set rs = db.OpenRecordset(strSQL)
text2.text = rs("campo")

espero te sirva, saludos

muchas gracias Ana

Bueno, simplemente para no confundir al personal:

Para ana:
Creo que te haces un lio con ADO y DAO; hablas de referenciar ADO y la apertura la haces con DAO.

...referencia "microsoft ado ext. 6.0 for dll etc..." NO! la referencia es "Microsoft DAO 3.6 Object Library".

"Dim bd As Connection" No! para referenciar una conexión DAO (en este ámbito): "Dim bd As Database"

Para rafa:

Sustituye "db = CurrentDb()" por "Set db = OpenDatabase("<RutaBaseDatos>\NombreDB.mdb")
Set TBL1 = db.OpenRecordset(INV)

Y si estás empezando con el acceso a bases de datos, MS recomienda hacerlo a través de ADO.