Abrir archivo desde VB

Hola aja:
Acabo de modificar mi código agragando lo que me diste pero no se ejecuta el programa. Me aparece un error al compilar:
If optConsultar.Value = True Then
Private Const SW_SHOWNORMAL As Long = 1
Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
dlgAbrir.CancelError = True
On Error GoTo ManejoError
dlgAbrir.Flags = cldOFNFileMustExist
dlgAbrir.Filter = "Bases de Datos de Microsft Acces(*.mdb)"
dlgAbrir.FilterIndex = 1
dlgAbrir.ShowOpen
ShellExecute Me.hwnd, "Open", dlgAbrir.FileName, "", "", SW_SHOWNORMAL
Exit Sub
ManejoError:
MsgBox "Consulta cancelada", vbInformation, "Mensaje del sistema"
End If
Y me aparece el mensaje:
Compile error:
"Only comments may appear after End ub, End Function or End Propety"
Como puedes ver no tengo comentarios, y código fuera de función no creo a menos que sea la función "Private Declare Function".
Ese es mi problema, acabo de pedirte una aclaración al leer tu respuesta pero como no me apareció ninguna confirmación te volví a hacer la pregunta.
Y saludos desde Chihuahua, México