necesito crearconexiona bd :urgente.....

Renid
10 de Junio del 2005
hola, necesito crear un procedimiento de bd; osea q cuando cree mis formularios solo llame a ese procedimiento y no tener q hacer toda la conexion de la bd..les estare agradecido por su respuesta....

BERTULFO JAVIER
10 de Junio del 2005
en un modulo adicionas el siguiente codigo

Public cn As ADODB.Connection

Public Sub main()
On Error GoTo Mensaje
Set cn = New Connection
Path = App.Path & "Data.mdb"
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Path & ""
frmMenu.Show
Exit Sub
Mensaje:
MsgBox "No se establecio la conexión con la Base de Datos", vbCritical, "ATENCION"
End Sub