access ayuda! porfavor

[Daviel]

Ahi va esto a ver si te sirve compañero:

Código:

Function BuscarInStr(ByVal Ruta As String, ByVal Tabla As String, ByVal CampoBusqueda As String, ByVal ValorBuscado As String, ByVal CmpValorRequerido As String) As String
        Dim BDCn As New ADODB.Connection
        Dim BDRd As New ADODB.Recordset
        Dim Siguiente As String
        BDCn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:DataBase Password=hu9rethu")
        BDRd.Open(Tabla, BDCn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        BuscarInStr = Nothing
        While Not BDRd.EOF
            If InStr(1, BDRd.Fields(CampoBusqueda).Value, UCase(ValorBuscado), vbTextCompare) >= 1 Then
                BuscarInStr = BDRd.Fields(CmpValorRequerido).Value
                GoTo Preguntar
            End If
Continuar:
            BDRd.MoveNext()
        End While
        GoTo Terminar
Preguntar:
        Siguiente = MsgBox("Desea seguir buscando?", vbYesNo + vbQuestion, "Valor Encontrado: " & BuscarInStr)
        Select Case Siguiente
            Case vbNo
                Siguiente = Nothing
                GoTo Terminar
            Case vbYes
                GoTo Continuar
        End Select
Terminar:
        BDRd.Close()
        BDCn.Close()
        BDRd = Nothing
        BDCn = Nothing
        Siguiente = Nothing
        MsgBox("Busqueda Terminada")
        Exit Function
End Function