Syntax error in INSERT INTO statement.

[mehrdad55]

Dim Ds AsNew DataSet
Dim strcon AsString = "provider=microsoft.jet.oledb.4.0;data source=m:\gharz_t.mdb;Jet OLEDB:Database Password=1"
Dim con AsNew OleDb.OleDbConnection(strcon)
con.Open()
Dim strsql AsString = "select * from sanadtemp"
Dim Adapter AsNew OleDb.OleDbDataAdapter(strsql, con)
Adapter.Fill(Ds, "sanadtemp")
Dim dr As DataRow = Ds.Tables("sanadtemp").NewRow
dr("sanadno") = sanadno.Text
Ds.Tables("sanadtemp").Rows.Add(dr
Dim CMP AsNew OleDb.OleDbCommandBuilder(Adapter)
Adapter.Update(Ds, "sanadtemp")

با سلام خدمت دوستان
این کد را ملاحظه کنید
در هنگام اجرای این خط Adapter.Update(Ds, "sanadtemp")
پیغام خطای Syntax error in INSERT INTO statement. را می دهد
مشکل کجاست
با تشکر