Syntax error in INSERT INTO statement.

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. را می دهد
مشکل کجاست
با تشکر

فکر کنم باید متغیر strsql رو دوباره مقدار دهی بکنید به این نحو

strsql="Insert Into sanadtemp fields(sanadno)values ('" & sanadno.text & "')

با سلام
من چند جا این دستور را بدون insert (از جمله در این سایت ) دیده ام
اگر بخواهم strsql را دوباره مقدار دهی کنم باید چطوری آن را فراخوانی کنم
با تشکر

کسی کمکی نمیکند