re conecatar la red

[arm]

Veran, utilizo un BD con ADO, suele ocurrir el un error cuya descripcion es "Erro de disco o de red.", obvimante, significa que la red se cayo despues de inicilamente habr accesdido bien.
He intentado corregir el error cerrando todas las conexiones y reabriendolas, eso deveria solucionar mi problema,pero no es eso lo que sucede, pues al abrir de nuevo un error indiocando que no se encontro el archivo en que se encuentra la BD me aparece.
Lo que he observado es que la conexion de la red no se reanuda inmediatamente despues de conectar, asi que he intendo solucionar esto llamando a una funcion que me indique cuando esta conectada la red, el problema es que no conosco esa funcion.

Si conocen dicha funcion les estari muy agradecido de que me la pasaran.

¿acaso hay otra forma de solucionar es problema?

[luciano]

Hola, la verdad no se bien , pero probá esta llamada a InternetGetConnectedState que te devuelve si estas conectado a una Lan o no

Código:

Option Explicit

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private dwflags As Long

Private Function Lan() As Boolean
   
   Call InternetGetConnectedState(dwflags, 0&)
   Lan = dwflags And &H2
End Function



Private Sub Command1_Click()
  MsgBox "La red LAN  está activa:? " & CBool(Lan())
End Sub

saludos

----------------------------------

[arm]

Gracias lucino, me funciono en varias maquinas, solo que algunas de ellas no tendran conneccion a intertnet solo contaran con red local.