我这样向数据库添加新记录为什么会错?该如何添加新记录呢?Private Sub cmdSave_Click()
    With Mange_Data.rsMember
      .Open
      .AddNew
      .Fields("会员号") = txtMemberNumber.Text
      .Fields("会员名") = txtMemberName.Text
      .Fields("状态") = comMemberState.Text
      .Fields("会员卡号") = txtMemberCardNO.Text
      .Close
    End With
 
End Sub