求救！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
