数据库浏览器(100分)

是VB的不知道错了没？
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Data1.UpdataRecord
Data1.Recordset.Boobmark = Data1.Recordset1.LastModified
End Sub
Private Sub Command3_Click()
Dim msg As String
msg = "确定删除记录？" &
Chr$(10)
msg = msg &
Text1.Text
If MsgBox(msg , 17 , "删除记录?"<>1then
Exit Sub
On error GoTo Handle
Data1.Recordset.Delete
Data1.Record.MoveNext
If Data1.Recordset.EOF then
Data1.Recordset.MovePrevious
Handle:
MsgBox"无法删除"
End Sub
Private Sub Command4_Click()
Dim msgfind As String
msgfind = InputBox("请输入要找的CompanyName:","查找记录")
If msgfind<>""then
Data1.Recordset.FindFirst("[companyName]='msgfind'")
End Sub
Private Sub Command5_Click()
End
End Sub
请多多指教`````

送分啊````
请指教

VB高手看看啊```````
送分````

提示什么错？
虽然我不懂vb，但是我还是很想帮组你

msgbox后少了一个).不知道是不是啊。
水平太低别的看不出什么了。

多人接受答案了。