我收到这个错误说
OleDbException 未处理...From 子句中的语法错误
我的登录代码如下。
Imports System.Data.OleDb
Public Class Login
Dim con As New OleDbConnection
Dim dt As New DataTable
Dim ds As New DataSet
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Project work\anshu\fitness_0.1\Fitness.accdb"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If check() = True Then
Main.Show()
Me.Hide()
Else
MsgBox("Enter vailid Username and Password", MsgBoxStyle.Information, "Login Validation Information")
End If
End Sub
Public Function check()
ds.Tables.Add(dt)
con.Open()
Dim da As New OleDbDataAdapter("select * from User", con)
da.Fill(dt) ---->here is the error!
For Each DataRow In dt.Rows
If txtname.Text = DataRow(1) And txtpass.Text = DataRow(2) Then
con.Close()
Return True
End If
Next
con.Close()
Return False
End Function
End Class