Verificar conexão de Rede

'Num modulo

Private Declare Function InternetGetConnectedState Lib "wininet" _
(ByRef dwFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function VerificaInternet() As Long
Dim strResultado As Long
     VerificaInternet = InternetGetConnectedState(strResultado, 0)
End Function

'No evento ao pressionar de um botão

Private Sub SeuBotão_Click()
   If VerificaInternet = 1 Then
      MsgBox "Sua Internet está Conetada..."
   Else
      MsgBox "Sua Internet está Desconetada..."
   End If
End Sub

Public Function VerificaTabelaVinculada()
'By JPaulo ® Maximo Access 2009
On Error GoTo Err_VerificaTabelaVinculada
Const conTabela As String = "NomeDaSuaTabela"

'A tabela vinculada terá um string de ligação cujo comprimento tem de ser > 0
If Len(CurrentDb.TableDefs(conTabela).Connect) > 0 Then

'Sabemos que conTabela é uma tabela vinculada, mas será o vinculo é válido?
'A próxima linha de código irá gerar erros 3011 ou 3024, se não for valido"

 CurrentDb.TableDefs(conTabela).RefreshLink
 
'Se você chegar a este ponto, é porque você tem a tabela válida e vinculada.
Else
'Se o comprimento da string de ligação for zero (0) então devolve a mensagem.
 MsgBox "*" & conTabela & "* é uma tabela normal, sem vinculo.", vbCritical, "Erro"
End If

Exit_VerificaTabelaVinculada:
 Exit Function

Err_VerificaTabelaVinculada:
 Select Case Err.Number
   Case 3265
     MsgBox "*" & conTabela & "* não existe.", vbCritical, "Erro"
   Case 3011, 3024    'Tabela ligada não existe neste diretorio.
     MsgBox "*" & conTabela & "* tabela ligada não é valida.", vbCritical, "Erro"
   Case Else
     MsgBox Err.Description & Err.Number, vbExclamation, "Erro na função VerificaTabelaVinculada."
 End Select
   Resume Exit_VerificaTabelaVinculada
End Function