Problema con access

[namorha]

Gracias, ya me hace la busqueda perfectamente y según el dato que me introduzca el usuario, pero tendrías alguna idea para que se me mostrará el formulario asociado.

Código:

Private Sub Comando0_Click()

    Dim rst As Recordset
    Dim Tabla As TableDef
    Dim fld As Field
    Dim textoBusq As String
    
    Dim contador As Integer
    
    Debug.Print "Coincidencias encontrada con el texto: " & textoBusq
    contador = 0
    textoBusq = InputBox("Introduce valor a buscar")
    For Each Tabla In CurrentDb.TableDefs
        If Left(Tabla.Name, 4) <> "MSys" Then
            Set rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabla.Name & "];")
            rst.MoveFirst
            Do Until rst.EOF
                For Each fld In rst.Fields
                    If InStr(1, fld.Value, textoBusq, vbTextCompare) Then
                        Debug.Print "   En tabla: " & Tabla.Name
                        Debug.Print "   Campo:" & fld.Name
                        Debug.Print "   Posicion:" & rst.AbsolutePosition + 1
                        Debug.Print "   Cadena entera: " & rst(fld.Name)
                        contador = contador + 1
                    End If
                Next
                rst.MoveNext
            Loop
        End If
    Next
    If contador = 0 Then
        Debug.Print "No se encontraron coincidencias"
       Else
        Debug.Print "Total coincidencias: " & contador
    End If



End Sub

Gracias y saludos !!!!