Access - Problemas con codigo de busqueda

Hola amigo tengo el siguiente codigo en el cual he intentdo hacer una busqueda que la parecer funciona pero no me muestra los resultados que es lo que puede estar pasando, aca esta el codigo:

Private Sub Buscar()


Dim dbb As Database
Dim qdfselect As QueryDef
Dim rsselect As Recordset
Dim rsbusqueda As Recordset
Dim mostrar As String

Set dbb = OpenDatabase("Crono2")
Set qdfselect = dbb.CreateQueryDef("")

qdfselect.SQL = "SELECT * FROM Grupo1 "

Set rsbusqueda = dbb.OpenRecordset("Grupo1")

With rsbusqueda
Do While Not rsbusqueda.EOF

mostrar = mostrar & " " & vbCr
rsbusqueda.MoveNext
Loop
End With

MsgBox (mostrar)

rsbusqueda.Close
dbb.Close


End Sub

Desde ya muchas gracias.

El código que has proporcionado parece tener algunos errores y omisiones que pueden estar afectando la visualización de los resultados. A continuación, te proporciono una versión modificada del código con las correcciones necesarias:


Asegúrate de realizar las siguientes modificaciones en el código:

1. Reemplaza "Crono2" con la ruta y el nombre correctos del archivo de base de datos de Access.
2. Reemplaza "Campo1" y "Campo2" con los nombres de los campos reales de la tabla "Grupo1" en tu base de datos.

Una vez que hayas realizado estas modificaciones, ejecuta el procedimiento "Buscar" y deberías obtener una ventana de mensaje con los resultados de la búsqueda en la tabla "Grupo1".

Recuerda que este código solo muestra los valores de dos campos ("Campo1" y "Campo2") como ejemplo. Puedes modificarlo según tus necesidades para mostrar los campos deseados.

Espero que esta solución te sea útil.