您的参与将给我莫大的动力!!!!急求！！！！！
Private Sub adddata()
Dim cnn As New Connection
Dim rst As New Recordset
Dim sql As String
If cnn.State <> adStateClosed Then cnn.Close
cnn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " + App.Path + "\ db.mdb"
cnn.Open

sql = "select * from sendtab"
rst.Open sql, cnn, 3, 3
If Not rst.EOF Or Not rst.BOF Then
rst.AddNew
rst(0) = Now
'rst(1) = Text2.Text
rst(1) = Combo14.Text
rst(2) = Text70.Text
rst(3) = Combo14.ListIndex
rst.Update
End If

rst.Close
rst.CursorLocation = adUseClient
rst.Open "select * from sendtab", cnn
Set DataGrid1.DataSource = rst
End Sub

自己变了一个程序，向往数据库中添加数据，可运行的过程中提示错误：

实时错误，‘-2147467259（80004005）’
找不到文件‘E:\正在使用vb\db.mbd'

调试时提示：cnn.Open 请各位高手提示一二，不胜感激！急用！！！

[解决办法]
sendtab 表 数据库中有吗