Partial Class _Default
    Inherits System.Web.UI.Page
 
    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=" & _
        "C:\Aepk\Site\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
                Response.Redirect("~/ambstart.aspx", True)
            Else
                MsgBox("Die Eingabe war falsch, Bitte versuchen Sie es noch" & _
                  "einmal")
            End If
 
        End Using
    End Sub
End Class