Computación - visual basic

saber acerca de la conneción de una base de datos realizadas en access con visual basic especialmente con ado

Abrir base :
Set basedatos = OpenDatabase(App.Path & "\" & "base.mdb")

Asignar un registro a una variable:
Set registro = basedatos.OpenRecordset("select codigo,cantidad, nombre from datos where codigo='" & Form2.CmbMuebles.Text & "'")

Cerrar base:
basedatos.close

El manejo del resgistro se hace como con cualquier registro.
Hay que incluir la referencia de DAO o ADO segun sea el caso

saludos