实时错误13 类型不匹配 请教高人们

Question

Private Sub dgrQingdan_Error(ByVal DataError As Integer, Response As Integer) 
'新记录图号必须输入 
Response = 0 
MsgBox "请输入产品图号", "输入出错！" 
dgrQingdan.SetFocus 
End Sub

Answer 1

MsgBox "请输入产品图号", , "输入出错！"
中间加一个",",或者 vbOKOnly

Answer 2

MsgBox "请输入产品图号,输入出错！" 

Answer 3

"请输入产品图号" & "输入出错！" 

Answer 4

msgbox "请输入产品图号!",48,"输入出错"

Answer 5

MsgBox "请输入产品图号", ,"输入出错！" 

Answer 6

MsgBox "请输入产品图号", ,"输入出错" 

Answer 7

MsgBox "请输入产品图号", ,"输入出错"