添加用户提示出错！！求救啊！在线等

Private Sub ComSave_Click()
  Data1.RecordSource = "select * from ma where 操作员='" + Combo1.Text + "'"
  Data1.Refresh
   If Data1.Recordset.RecordCount > 0 Then
   MsgBox "用户名已经存在,注册不成功!", , "信息提示"
   Combo1.Text = ""
   Combo1.SetFocus
  Else
  Set mydb = Workspaces(0).OpenDatabase(App.Path & "\khgl.mdb")
  Set myrs1 = mydb.OpenRecordset("ma", dbOpenTable)　＇运行到这里提示错误：类型不匹配
用的是　acess数据库
      myrs1.AddNew
      If Combo1.Text <> "" Then myrs1.Fields(0) = Combo1.Text
      If Text1(1).Text <> "" Then
      myrs1.Fields(1) = Text1(1).Text
      myrs1.Fields(2) = "0"
      myrs1.Fields(3) = "0"
      myrs1.Fields(4) = "0"
      myrs1.Fields(5) = "0"
      myrs1.Fields(6) = "0"
      Else
      End If
      myrs1.Update
      myrs1.Close
      mydb.Close
      Data1.Refresh
  ComSave.Enabled = False
  ComAdd.Enabled = True
  End If
End Sub