Visual studio 2010 我没有得到任何错误，但是：“OLEDBEException是查询表达式中未处理的语法错误（缺少运算符）”如何解决这个问题？

我是使用Visual Stuido 2010 C和Microsoft Access 2007创建应用程序的新手。我计划创建一个应用程序，用户可以在其中向数据库访问添加数据。但我得到了一个错误，指出查询表达式中缺少运算符的语法错误。我真的找不到我的代码有什么问题。我正在使用我表格第2页的面板

我从Sub Button1 rd=cmd.ExecuteReader得到了这个问题 这是我向数据库添加数据的代码：

Imports System.Data.OleDb

Public Class Form1
    Dim conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim str As String
    Dim cmd As OleDbCommand
    Dim rd As OleDbDataReader
    Dim tanya As String

    Sub koneksi()
        str = "provider=microsoft.jet.oledb.4.0;data source=Database1.mdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub


    Sub tampilkan()
        da = New OleDbDataAdapter("select * from tb_bpl", conn)
        ds = New DataSet
        da.Fill(ds, "tb_bpl")
        DataGridView1.DataSource = ds.Tables("tb_bpl")
        DataGridView1.Columns(1).Width = 250
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        Call tampilkan()
    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub
    Private Sub bersih()
        TextBox1.Clear()
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cmd = New OleDbCommand("select * tb_bpl where periode='" + TextBox1.Text + "'", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        If Not rd.HasRows Then 'jika data/baris tidak ditemukan
            Dim simpan As String = "insert into tb_bpl(periode, reviewer, pemeriksa, paraf1, paraf2, y1, kkp1, ket1, y2, kkp2, ket2, y3, kkp3, ket3, y4, kkp4, ket4) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "','" & TextBox16.Text & "','" & TextBox17.Text & "')"
            cmd = New OleDbCommand(simpan, conn)
            cmd.ExecuteNonQuery()
            MsgBox("Data Baru Tersimpan", vbInformation, "Pemberitahuan!!!")
            Call bersih()
        Else
            MsgBox("Data Sudah Ada", vbInformation, "Maaf!!!")
        End If
        tampilkan()

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        cmd = New OleDbCommand("select * from tb_bpl where periode='" & TextBox1.Text & "'", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        If rd.HasRows Then
            Dim sqledit As String = "update tb_bpl set reviewer='" & TextBox2.Text & "',pemeriksa='" & TextBox3.Text & "',paraf1='" & TextBox4.Text & "',paraf2='" & TextBox5.Text & "',y1='" & TextBox6.Text & "' ,kkp1='" & TextBox7.Text & "' ,ket1='" & TextBox8.Text & "',y2='" & TextBox9.Text & "',kkp2='" & TextBox10.Text & "',ket2='" & TextBox11.Text & "',y3='" & TextBox12.Text & "',kkp3='" & TextBox13.Text & "',ket3='" & TextBox14.Text & "',y4='" & TextBox15.Text & "',kkp4='" & TextBox16.Text & "',ket4='" & TextBox17.Text & "'  where periode='" & TextBox1.Text & "'"
            cmd = New OleDbCommand(sqledit, conn)
            cmd.ExecuteNonQuery()
        End If
        MsgBox("Data Terubah", vbOKOnly, "Sukses")
        Call bersih()
        Call tampilkan()

    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        cmd = New OleDbCommand("select * from tb_bpl where periode='" & TextBox1.Text & "'", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        If rd.HasRows Then
            tanya = MsgBox("Anda Yakin Akan Menghapus Data?", vbYesNo, "Perhatian")
            If tanya = vbYes Then
                Dim sqlhapus As String = "delete * from tb_bpl where periode='" & TextBox1.Text & "'"
                cmd = New OleDbCommand(sqlhapus, conn)
                cmd.ExecuteNonQuery()
                MsgBox("Data Terhapus", vbOKOnly, "Sukses")
                Call bersih()
            End If
        End If
        Call tampilkan()

    End Sub

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        cmd = New OleDbCommand("select * from tb_bpl where periode='" & TextBox1.Text & "'", conn)
        rd = cmd.ExecuteReader
        rd.Read()
        If rd.HasRows Then
            TextBox2.Text = rd.Item("reviewer")
            TextBox3.Text = rd.Item("pemeriksa")
            TextBox4.Text = rd.Item("paraf1")
            TextBox5.Text = rd.Item("paraf2")
            TextBox6.Text = rd.Item("y1")
            TextBox7.Text = rd.Item("kkp1")
            TextBox8.Text = rd.Item("ket1")
            TextBox9.Text = rd.Item("y2")
            TextBox10.Text = rd.Item("kkp2")
            TextBox11.Text = rd.Item("ket2")
            TextBox12.Text = rd.Item("y3")
            TextBox13.Text = rd.Item("kkp3")
            TextBox14.Text = rd.Item("ket3")
            TextBox15.Text = rd.Item("y4")
            TextBox16.Text = rd.Item("kkp4")
            TextBox17.Text = rd.Item("ket4")
        End If

    End Sub

End Class

---

您的查询缺少FROM子句：select*FROM tb_bpl…谢谢@Wolfgang Kais，idk为什么我仍然无法给出代表或标记您的正确答案，因为我的acc仍然是新的。。