Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
        Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=C:\Freibage\WatchGuard.mdb;Password=xy;"
 
        Dim con As New OleDb.OleDbConnection
        Try
        Dim DS As New DataSet
 
        con.ConnectionString = strCon
 
        Dim sqladapter As OleDb.OleDbDataAdapter
 
        sqladapter = New OleDb.OleDbDataAdapter("Select * from User Where" & _
          "Username=*", con)
 
        con.Open()
 
        sqladapter.Fill(DS)
 
        MessageBox.Show("Verbindung erfolgreich hergestellt")
 
        Catch ex as Exception
          MessageBox.Show( this, "Fehler aufgetreten : " + ex.ToString )
        finally
          if con IsNot Nothing then
            con.Close()
        End Try
    End Sub