Visual Basic

System.Data.OleDb.OleDbException was unhandled<br />
  ErrorCode=-2147217900<br />
  Message="Syntax error (missing operator) in query expression 'USERID='Brad' PASSID='test'' AND HardwareID='BRAD-8EYRYEUOH4'."<br />
  Source="Microsoft JET Database Engine"

 Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim mypath = "C:\Temp\mydb.mdb"
    Dim mypassword = ""
    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mypath & ";Jet OLEDB:Database Password=abc123" & mypassword)
    Dim cmd As OleDbCommand
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql = "SELECT UserID ,PassID, HardwareID FROM MYTAB WHERE USERID='" & TextBox1.Text & "' PASSID='" & TextBox2.Text & "' AND HardwareID='" & TextBox3.Text

        cmd = New OleDbCommand(sql, conn)
        conn.Open()
        Dim dr As OleDbDataReader = cmd.ExecuteReader

        Try
            If dr.Read = False Then
                MessageBox.Show("Authentication failed...")
            Else
               MessageBox.Show("Login successfully...")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        conn.Close()

    End Sub

<br />
Public Class Form1<br />
    Sub Main()<br />
        System.Console.WriteLine("About VB Example")<br />
        System.Console.WriteLine()<br />
<br />
        ' Prompt user for identifier<br />
        Dim ReplyString As String<br />
<br />
        System.Console.Write("Type A or B: ")<br />
        ReplyString = System.Console.ReadLine()<br />
        System.Console.Write("You typed: " & ReplyString)<br />
    End Sub<br />
End Class<br />