Pos la penúltima linea de código tienes:
g_db.Close
Cerraste la conexion! Debes establecer la conexion nuevamente... Trata en el CHANGE o en el CLICK del DTPicker1:
Código vb:
Ver originalIf g_db.State=0 then 'EL ESTADO=0 ESTA CERRADA, SI ES IGUAL A 1 ESTA ABIERTA
g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"
End If
O tambien, crea una Sub y simplemente la llamas del LOAD del FORM y desde el CHANGE o el CLICK del DTPicker1