Estoy creando una aplicación para manipular una base de datos Microsoft Access pero no deja buscar

Hola de antemano gracias por tu ayuda.
Mira estoy creando una aplicación para que pueda manipular una base de datos(ACCESS)desde visual basic, pero todo funciona correctamente(puedo añadir registros, eliminar, modificar, etc)pero el problema es cuando genero el exe de mi aplicación, el problema consiste en que puedo añadir registros, pero no puedo consultarlos,¿qué necesito y que tengo que hacer para que funcione correctamente? Gracias.
Dim refbus As String
Dim criterio As String
'************************************************************'
End Sub
Private Sub Añadir_Click()
If numero.Text = "" Or paterno.Text = "" Or materno.Text = "" _
Or nombre.Text = "" Or Puesto = "" Or Captacion = "" Then
MsgBox "Los datos que proporciona son incorrectos", vbCritical, "Error"
numero.SetFocus
Else
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End Sub
Private Sub Borrar_Click()
If Data1.Recordset.RecordCount = 0 Then
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Text2.Text = ""
Else
Data1.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End If
End Sub
Private Sub Buscar_Click()
Añadir.Visible = False
Label5.Visible = False
Buscar.Visible = False
Siguiente.Visible = False
Puesto.Visible = False
Captacion.Visible = False
Borrar.Visible = True
Modificar.Visible = True
regresar.Visible = True
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = True
Data1.Visible = True
numero.Enabled = False
paterno.Enabled = False
materno.Enabled = False
nombre.Enabled = False
Text2.Enabled = False
regresar.SetFocus
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
refbus = Trim(InputBox$("Introdusca referencia a buscar", "Buscar"))
criterio = "Solicitud = '" & refbus & "'"
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox "No existe esa referencia.", vbInformation, "aviso"
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End If
End Sub
Private Sub Captacion_Change()
Captación.Clear
Captacion.AddItem "ANAYA"
Captacion.AddItem "ANUNCIO PERIODICO"
End Sub
Private Sub Form_Load()
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
End Sub
Private Sub LCaptacion_Click()
Captacion.Visible = True
LCaptacion.Visible = False
End Sub
Private Sub Modificar_Click()
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
LPuesto.Enabled = True
Borrar.Visible = False
Modificar.Visible = False
LPuesto.Visible = True
LCaptacion.Visible = True
regresar.Left = 2520
regresar.Top = 5280
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
Data1.Recordset.Edit
End If
numero.SetFocus
End Sub
Private Sub Puesto_Click()
Text1.Text = Label5.Caption
End Sub
Private Sub Puesto_Change()
Puesto.Clear
Puesto.AddItem "ADMV"
Puesto.AddItem "ADVO"
End Sub
Private Sub regresar_Click()
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
numero.SetFocus
regresar.Left = 4080
regresar.Top = 5400
End Sub
Private Sub LPuesto_click()
Puesto.Visible = True
LPuesto.Visible = False
End Sub