求救！vb链接不上！高手请进
小弟初学vb，照书本上搞了一个 文件检索系统 ，代码如下


Private Sub Form_Initialize() '
Dim i As Integer
For i = 1 To Data1.Recordset.Fields.Count - 2
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next

Combo1.ListIndex = 0
Combo2.ListIndex = 0

Command1.Enabled = True
Text2.Enabled = True

End Sub

Private Sub Form_Load()


End Sub
Private Sub Data1_Reposition()
On Error GoTo ReposErr

Dim filename As String
OLE1.OLETypeAllowed = vbOLELinked
OLE1.Class = "Word.Document.8"

filename = App.Path & " \ " & Data1.Recordset.[文件名]
OLE1.SourceDoc = filename
OLE1.Action = 1

Exit Sub

ReposErr:
MsgBox "打开文件错误，可能这个公文文件不存在", vbCritical + vbOKOnly, "错误"


End Sub


Private Sub Combo1_Click()

MakeString

End Sub

Private Sub Combo2_Click()

MakeString

End Sub


Private Sub Text_Change()
On Error GoTo TextErr

If Text1.Text = "" Then
Command1.Enabled = False
Text2.Text = ""
Else
Command1.Enabled = True
MakeString
End If

Exit Sub

TextErr:
MsgBox "输入错误", vbCritical + vbOKOnly, ""

End Sub

Private Sub Command2_Click()
Form2.Show

End Sub

Private Sub Command3_Click()
Form1.Enabled = True
Unload Form1

End Sub


Private Sub MakeString()
SQL = "[" & Combo1.Text & "]" & Combo2.Text


Select Case Combo1.Text
Case "发文者"
SQL = SQL & "'" & Text1.Text & "*'"
Case "发文日期"
SQL = SQL & "# " & Text1.Text & "#"
Case "关键词"
SQL = SQL & "'" & Text1.Text & "*'"

End Select

SQL = "Select * From [新增公文] Where " & SQL
Text2.Text = SQL

End Sub

Private Sub Command1_Click()
On Error GoTo CommandErr
SQL = "Select * From [新增公文] Where " & SQL
Data1.RecordSource = SQL
Data1.Refresh

Exit Sub

CommandErr:
MsgBox "搜寻错误", vbCritical + vbOKOnly, ""

End Sub



窗口


Data1.DatabaseName = App.Path & "\db2.Mdb"

运行时点查询，总是查询不到，请高手指点一下，不胜感激！

[解决办法]
filename = App.Path & " \ " & Data1.Recordset.[文件名]
*************************
多余两个空格，这样修改
filename = App.Path & "\" & Data1.Recordset.[文件名]

[解决办法]
Private Sub Command1_Click()
On Error GoTo CommandErr
'SQL = "Select * From [新增公文] Where " & SQL '注释掉这行
Data1.RecordSource = SQL
Data1.Refresh

Exit Sub

CommandErr:
MsgBox "搜寻错误", vbCritical + vbOKOnly, ""

End Sub

[解决办法]
程序最上部

dim sql as string