07/06/2006, 15:28
|
 | (Desactivado) | | Fecha de Ingreso: abril-2005 Ubicación: Mi Ecuador del alma
Mensajes: 4.196
Antigüedad: 20 años Puntos: 47 | |
| Para que no se "apague" el programa debes de poner un ON ERRO GO TO... esta es mi funcion para abrir la conexion a la base:
Public Sub abre_conexion()
On Error GoTo ERROR:
Set conexion = New ADODB.Connection
conexion.Open "dsn"
ERROR:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical
End If
End Sub |