界面设计如下：

Data控件（DataUserManage)连接一个数据库
我要用这个界面增加删除用户
其中cmdAddUser的代码是这样的：
Private Sub cmdAddUser_Click()
general.AddUser
End Sub

AddUser()是这样的：
Function AddUser()
If frmUserManage.cmdAddUser.Caption = "增加用户" Then
frmUserManage.DataUserManage.Recordset.AddNew
frmUserManage.cmdAddUser.Caption = "保存"
frmUserManage.txtUserName.SetFocus
frmUserManage.txtUserName.Text = ""
Else
If frmUserManage.cmdAddUser.Caption = "保存" Then
frmUserManage.DataUserManage.Recordset.Updata
frmUserManage.DataUserManage.Refresh
frmUserManage.cmdAddUser.Caption = "增加用户"
End If
End If
End Function

但是运行的时候有错误
请问大家是怎么回事啊

还有一个问题：
我要判断数据库中的一个字段的值和TEXT中的值是否相等
假如text的name为txtUser 数据库表中的这个字段的name为user
那么我这样写对不对（text中的DataField 和DataSource都已经设置好了的）

if .Fields("user")=txtUser.text then
......
end if

这样写对不对啊

[此贴子已经被作者于2006-5-11 0:17:19编辑过]