Visual Basic - Conexion Acces en un modulo

Hola Buenos Dias Quisiera Saber Si me hacen el Favor de como Crear una Conexion Dao en un modulo, lo que tengo es una BD Acces 97 con 7 Tablas una Que se llama Clientes, Empleados, Productos, Genero, Caja, Movimientos, Etc. y no se como crear una conexion si poner el codigo en cada formulario o en un modulo y pues no se que me acosejan y de como hacerlo y sobre los recordseten donde ponerlos de antemano gracias

atte. alberto padron

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

la variable cn, comoesta declarada...