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=~/db/AmbulanzLogIn.mdb")
            Dim myCmd As New Data.OleDb.OleDbCommand()
            myCmd.Connection = myCon
            myCmd.CommandText = "SELECT Pass FROM quy_LogIn WHERE User = &" & _
              "'TextBox1.Text'"
            Dim pwd As String = ""
            Try
                myCon.Open()
                pwd = CStr(myCmd.ExecuteScalar)
            Catch
            End Try
            If (Not String.IsNullOrEmpty(pwd)) AndAlso (pwd = TextBox2.Text) _
              Then
                MsgBox("Hurra")
            End If
        End Using
    End Sub
End Class