VB.NET 连接 ACCESS

Question

VB.NET 连接 ACCESS
Dim cm As New OleDbCommand("select * from STAFFINFO", Aconn)
        DA = New OleDbDataAdapter(cm)
        DS = New DataSet
        da.Fill(ds, "STAFFINFO")
        Dim myrow As DataRow = DS.Tables("STAFFINFO").NewRow
        Dim CB As New OleDbCommandBuilder(DA)
        myrow("STAFFCODE") = TextBox1.Text
        myrow("NAME") = TextBox2.Text
        myrow("SEX") = ComboBox1.Text
        myrow("NATION") = ComboBox2.Text
        myrow("BIRTHDAY") = DateTimePicker1.Text
        myrow("CHECKINDATE") = DateTimePicker12.Text
        ds.Tables("STAFFINFO").Rows.Add(myrow)
        da.Update(ds, "STAFFINFO")
       系统提示：INSERT INTO 语句的语法错误

Answer 1

'将da.Update(ds, "STAFFINFO")改成以下代码试试
Dim dschange As DataSet
If ds.HasChanges(DataRowState.Added) Then
   dschange = dsupdate.GetChanges(DataRowState.Added)
   If dschange.HasErrors() Then
      messagebox.show "保存失败"
   Else
      DA.Update(dschange, "STAFFINFO")
      ds.AcceptChanges()
      messagebox.show "保存成功"
   End If
End If