Recuperar conexión con BD Access despues de caida de red.

[smoke001]

Hola amigo,

Yo uso el manejo de errores y pregunto si es el error de perdida de conexión así:

Código vb:

If Err.Number = "-2147217865" Then
MsgBox "Se ha perdido la conexión al servidor....", vbCritical, "Error"
rs.Close
rs.Open
End If
 

Espero que te sirva o nos den una mejor opcion