CONECTALA EN UN MODULO K SERVIRA PARA TODOS TUS FORMULARIOS
Public ADOCONN As New ADODB.Connection 'CONEXION*************
'FUNCION CONECTAR
Public Function conex()
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=MIBASE;Data Source=SERVER"
ADOCONN.Open
End Function
'DESCONENCTAR
Public Function desconectar()
ADOCONN.Close
End Function
'LLAMADA A FUNCION
Call conex
RST_EMPLEADO.Source = "INSERT INTO TB_EMPLEADO VALUES(" & Txt_CvlEmpleado.Text & ",'" & Txt_Nombre.Text & "'," & CVL_N & "," & cosa2 & ",'" & Cbo_Puesto.Text & "'," & CVL_S & ",'" & Txt_Rfc.Text & "','" & Txt_Curp.Text & "'," & cosa & ")"
RST_EMPLEADO.ActiveConnection = ADOCONN
MsgBox "REGISTRO ALMACENADO", vbInformation
RST_EMPLEADO.Open
desconectar