Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Using myCon As New Data.OleDb.OleDbConnection( _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + Server.MapPath( _
        "db/AmbulanzLogIn.mdb"))
            Dim myCmd As New Data.OleDb.OleDbCommand()
            Dim Benutzer As String = TextBox1.Text
            myCmd.Connection = myCon
            myCmd.CommandText = "SELECT Pass FROM [quy_LogIn]WHERE[Benutzer] =" & _
              "?"
            myCmd.Parameters.AddWithValue("@Benutzer", TextBox1.Text.ToString)
            Dim pwd As String = ""
            Try
                myCon.Open()
                pwd = CStr(myCmd.ExecuteScalar)
            Catch
                MsgBox("OLEDB-Verbindung ist: " & myCon.State.ToString)
            End Try
            If String.IsNullOrEmpty(pwd) = False AndAlso (pwd = TextBox2.Text) _
              Then
                Session.Add("Loggedin", "Yes")
                Session.Add("Benutzer", Benutzer)
                Response.Redirect("~/ambstart.aspx", True)
            Else
                MsgBox("Die Eingabe war falsch, Bitte versuchen Sie es noch" & _
                  "einmal")
            End If
 
        End Using
    End Sub