解决看自己的主窗体中有没有声明username 如有声明需要在链接数据库中加入主窗体的名称
原代码：txtsql=”select*from user_info where user_id=’” & username &”’”
现代码：
也可能是指针错误，定义当数据库中没有信息时提示没有信息
使用on error go to 语句
Dim str2 As String
myBookmark = mrc.Bookmark
'提示是否删除
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
'判断按钮类型
On Error GoTo A_error:
If str2$ = vbOK Then
'移动到数据集下一条记录
mrc.MoveNext
'判断数据集对象是否为空
If mrc.EOF Then
'移动到数据库的第一条记录
mrc.MoveFirst
'记载当前记录位置
myBookmark = mrc.Bookmark
'移动到最后一条记录
mrc.MoveLast
'删除记录
mrc.Delete
mrc.Bookmark = myBookmark
'调用函数显示数据
Call viewData
Else
'记载当前位置
myBookmark = mrc.Bookmark
'移动到前一条记录
mrc.MovePrevious
'删除记录
mrc.Delete
'回到原来位置
mrc.Bookmark = myBookmark
'调用函数显示数据
Call viewData
End If
Else
mrc.Bookmark = myBookmark
Call viewData '调用显示函数
End If
A_exit:
Exit Sub
A_error:
MsgBox "无任何信息！", vbOKOnly + vbExclamation, "警告"
frmmodifysinfo.Hide
类型不匹配的原因是自己声明的变量的类型和使用时的数据的类型不一致，检查自己数据定义的类型是否一致
问题自己的拼写错误检查拼写
传递参数的类型未定义
定义：Dim mrc As ADODB.Recordset
按确认键依然无法加入信息
在添加信息时没有输入代码
mrc.AddNew