لطفا راهنمایی کنید چرا کد زیر کار نمی کند ؟

[reza_vb64]

Imports System.Data.OleDb

Public Class LoginForm1
Dim con As OleDbConnection
Dim ol_cm As OleDbCommand
Dim dr As OleDbDataReader
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=user1.mdb")
If (((UsernameTextBox.Text <> "" And PasswordTextBox.Text <> ""))) Then

' cm= New OleDbCommand("Select * From user where username ='" & UsernameTextBox.Text & "' and password = '" & PasswordTextBox.Text & "' ", con)
con.Open()
dr = ol_cm.ExecuteReader
If dr.HasRows = True Then

dr.Read()
'Me.Visible = False

AboutBox1.Show()

Else

MsgBox("error")
End If


Else

MsgBox("erro")
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub

Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
erro:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll
Additional information: Syntax error in FROM clause.

[masoud.t123]

با عرض سلام
دوست عزیز در صورتی که برنامه را قرار می دادی بیشتر می توانستم کمکت کنم. ولی به نظر میرسد

خط:
cm= New OleDbCommand("Select * From user where username ='" & UsernameTextBox.Text & "' and password = '" & PasswordTextBox.Text & "' ", con

ایراد دارد -در قسمت شرط where به عبارتی دیگر در صورتی که دوتا شرط داشته باشیم نباید از and استفاده کرد و به جایش از ", " استفاده کنید.