Visual Basic - acces

como conectarse a una base de datos en acces desde un modulo

Depende que conexion deseas puede ser con DAO o con ADO
En caso de que sea DAO
Activas la referencia Microsoft DAO 3.6 Object Library
Dim WSSIG As Workspace
Dim BDMAT As Database
Dim Rs As Recordset
Sub Abrir()
Set WSSIG = DBEngine.Workspaces(0)
Set BDMAT = WSSIG.OpenDatabase(App.Path & "\Materiales.mdb")
End Sub
'Cuando hagas una consulta:
SQL = "Select * From TempRptMateriales"
Set Rs = BDMAT.OpenRecordset(SQL, dbOpenSnapshot)
If Rs.RecordCount > 0 Then
MSGBOX "Listo"
End If
Si desea conectarte por medio ADO, te lo pongo en otro comentario.

Cuando te conectas por medio de ADO, activas la Referencia
Microsoft ActiveX Data Objects 2.7 Library
Dentro de un Modulo
Public Rs As ADODB.Recordset
Public Sql As String
Public cnbase As ADODB.Connection
Sub Abrir()
Ruta = App.Path & "\Materiales.mdb" 'donde esta tu ruta de base datos
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
End Sub
'esto cuando quieras llenar un combo
Sql = "Select * From CatAreas"
Combo1.Text = ""
Abrir 'Manda llamar al procedimiento
Set Rs = New ADODB.Recordset
If Rs.State = adStateOpen Then Rs.Close
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockOptimistic
Rs.Open Sql, cnbase
'Asi llenas un combo
Do While Not Rs.EOF
Combo1.AddItem Rs!Area
Rs.MoveNext
Loop
SALUDOS!!!!