modulo de conecxión de base de datos

gabriel
20 de Febrero del 2006
[email protected] a todos, mi problema es necesito crear un modulo o función para simplificar la conexión a una base de datos, esdecir que cualquier formulario pueda acceder a la conexión contenida en ese modulo, cree la sifuiente funcion
Public Function abrir()
On Error GoTo licen
Set CNN = New ADODB.Connection
CNN.Open ("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=principal1.mdb")
Exit Function
licen:
End Function
pero cuando un programa trata de acceder a la base de datos marca un error, alguien de ustedes sabe como puedo crear un modulo que permita acceder a la conecxión desde cualquier formulario.

csdk
20 de Febrero del 2006
Public Function conex()
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=INCENTIVOS;Data Source=HIGHLIFE"
ADOCONN.Open
End Function
Public Function desconectar()
ADOCONN.Close
End Function