RE:Conexion Acces en un modulo
mira yo hago algo asi fijate
Public Function conectar()
Dim conexion As String
conexion = "C:\Archivos de programa\microsoft visual studio\Vb98\carujean\factura1.mdb"
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = conexion
cn.CursorLocation = adUseClient
cn.Open
'rs2.Open "Select * from requehaber ", cn, adOpenKeyset, adLockOptimistic
'rs3.Open "Select * from nrosreque order by Idreque", cn, adOpenKeyset, adLockOptimistic
'rs3.MoveLast
'rs1_p.Open "Select * from precios1 ", cn, adOpenKeyset, adLockOptimistic
'rs7.Open "Select * from valuacion ", cn, adOpenKeyset, adLockOptimistic
rs6.Open "Select * from Nrofactura order by Idfactu", cn, adOpenKeyset, adLockOptimistic
rs8.Open "Select * from rubros", cn, adOpenKeyset, adLockOptimistic
'rs11.Open "Select * from Nrosorden order by Idorden", cn, adOpenKeyset, adLockOptimistic
Exit Function
End Function