Visual Basic - Error 3021 VB

Desde Visual Basic debo acceder a un formulario Access , me permite hacerlo, incluso hacer lo que me interesa que es imprimir un listado mediante un botón de ese formulario Access, pero me tira un mensaje 3021 "No hay ningún registro activo", y marca la linea: pAccess.DoCmd.OpenForm "frmMenu", acFormDS
(En realidad da este error cuando oprimo el boton Salir de ese formulario Access)

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "Anexion"
frmRecibe.Show 1
Case "Impresion"
Dim pAccess As New Access.Application
pAccess.OpenCurrentDatabase App.Path & "\bdRecibido.mdb", True
pAccess.DoCmd.OpenForm "frmMenu", acFormDS
pAccess.CloseCurrentDatabase
Set pAccess = Nothing
End Select
End Sub

Espero me puedan ayudar
Gracias....Stella

ese error es cuando no tienes registros en la base de datos asi que tienes que validar de que al no tener registros que no pase a esa linea, como ya abriste la base de datos el programa entra y no encuentra nada por eso te dice que no tiene registros activos, ami me arrojaba ese error pero estaba haciendo otra cosa, cuando buscaba y el dato no existia me arrojaba ese error y valide todo y ya no pasa nada
ojala te sirva lo que acabo de decir

Si no te quieres complicar comprobando las propiedades .BOF o .EOF
puedes poner, en el procedimiento, un control de errores:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
On Error Goto NoRegistros
' Aquí el resto de tu código
.
.

NoRegistros:
Select Case err.number
Case 3021
Exit Sub ' o Resume Next para continuar con la línea siguiente
End Select
End Sub

Espero te sirva