Conectar base access por código en visual basic

[misterpc27]

Hay te envio Un ejemplo no si es sencillo pero talves te funcione

'Declaraciones para setear la conection
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sentencia As String

'esto en el load del form
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\NameDB.mdb;Persist Security Info=False" ' abrir coneccion a la base de datos donde NameDB.mdb es el nombre de tu database

'Seleccionar Todo de una tabla
sentencia = "Select * From NameTabla"
Set rs = cn.Execute(sentencia)

Talves te ayude en algo
Saldos