vb 错误424 请高手帮忙

以下是程序

Option Explicit

Public adoCnn As New ADODB.Connection
Public Rs, Rs2 As New ADODB.Recordset

Public Sub Connection()
If adoCnn.State = adStateOpen Then
adoCnn.Close
End If
adoCnn.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCnn.Open App.Path & "\瓶盖.mdb"
End Sub

Private Sub CmdCancel_Click()
FrmMain.Show
Unload Me
End Sub

Private Sub CmdOk_Click()
Dim strSQl As String
Dim temp As Integer



If ChkSale.Value = 1 Then
strSQl = "select * from 出售"
Call Connection
Rs.CursorLocation = adUseClient
Rs.Open strSQl, adoCnn, adOpenDynamic, adLockOptimistic
Rs.AddNew
Rs.Fields(1) = TextMarket.Text
Rs.Fields(2) = TextNombreG.Text
Rs.Fields(3) = TextNombreP.Text
Rs.AddNew
End If

If ChkRecede = 1 Then
strSQl = "select * from 回收"
Call Connection
Rs.CursorLocation = adUseClient
Rs.Open strSQl, adoCnn, adOpenDynamic, adLockOptimistic
Rs.AddNew
Rs.Fields(1) = TextMarket.Text
Rs.Fields(2) = TextNombreG.Text
Rs.Fields(3) = TextNombreP.Text
Rs.AddNew
End If

temp = MsgBox("是否继续输入？", vbYesNo)
If temp = 6 Then
TextMarket.Text = ""
TextCode.Text = ""
TextNombreG.Text = ""
TextNombreP.Text = ""
Else
FrmMain.Show
Unload Me
End If
End Sub

Private Sub DataGrid1_Click()
TextMarket.Text = Rs2.Fields(0)
End Sub

Private Sub TextCode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim strSQL3, temp As String
temp = TextCode.Text
strSQL3 = "select * from 商店 where 商店代码 = '" + CStr(temp) + "'"
Call Connection
Rs2.CursorLocation = adUseClient
Rs2.Open strSQL3, adoCnn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs2
End If
End Sub

Private Sub TextNombreG_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call CmdOk_Click
End If
End Sub

Private Sub TextNombreP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call CmdOk_Click
End If
End Sub

--------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- 多谢 --------------------编程问答-------------------- 你试下，把连接符号＂＋＂改成＂＆＂，我上次也是找个半天，结果问题就出在这里．
Try,.... --------------------编程问答-------------------- 谢谢,我已经改过来了 --------------------编程问答-------------------- 等待牛人来答.

补充：VB ,  VBA