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