大家帮忙帮我看一下我的程序出错在哪啦~

Private Con1 As New ADODB.Connection
Private Rst As New ADODB.Recordset
Private SqlStr As String

Private Sub Command1_Click()
Rst.AddNew
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Dim respon As Integer
respon = MsgBox("你是否真要删除这条记录，删除后不能恢复！！！", vbYesNo, "警告")
If respon = vbNo Then Exit Sub
If respon = vbYes Then
Rst.Delete
End If
End Sub

Private Sub Command4_Click()
Rst.Update
End Sub

Private Sub Command5_Click()
Rst.Save
End Sub
Private Sub Form_Load()

Con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\仓库.mdb;Persist Security Info=False;"
Con1.Open
Rst.CursorLocation = adUseClient
SqlStr = "Select * From 仓库表"
Rst.Open SqlStr, Con1, adOpenStatic, adLockOptimistic

DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst

End Sub

Private Sub DataGrid1_LostFocus()
Command1.Enabled = True
End Sub
当我按下保存的时候,提示文件名,目录名或卷标语法不正确!
大家快帮帮我~~