Private Sub cn_Ebenen_ConnectComplete(ByVal pError As adodb.Error, adStatus As _
  adodb.EventStatusEnum, ByVal pConnection As adodb.Connection)
   If adStatus = adStatusOK Then
      ... Verbindung hergestellt
   ElseIf adStatus = adStatusErrorsOccurred Then
         MsgBox pError.Description, vbOKOnly + vbCritical, "Connection Error"
   End If
End Sub
 
Private Sub cn_Ebenen_Disconnect(adStatus As adodb.EventStatusEnum, ByVal _
  pConnection As adodb.Connection)
   If adStatus = adStatusOK Then
      Set cn_Ebenen = Nothing
      ... Verbindung getrennt.
   End If
End Sub
 
Private Sub cn_Ebenen_InfoMessage(ByVal pError As adodb.Error, adStatus As _
  adodb.EventStatusEnum, ByVal pConnection As adodb.Connection)
   If adStatus = adStatusErrorsOccurred Then
      MsgBox pError.Description, vbOKOnly + vbCritical, "Connection Error"
   End If
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control