Chamar fomulário do access dentro pelo VB

Bom pessoal... consegui resolver o problema... então é o seguinte... essa resolução é para aqueles que quando foram tentar chamar um formulário de dentro do VB apareceu um erro "run-time error 2046", esse erro é devido ao seguinte:

Quando fazemos a chamada de um formulário do access para ser executado a partir do vb, o vb tem que entender que a base de dados está oculta, então para isso, devemos criar um módulo no VBA da sua base de dados, vai aqui um exemplo!

- crie um módulo com o nome MODULO! e insira o seguinte código:

Public Sub OpenAccForm(ByVal btnGerar_Grafico As String)
Application.DoCmd.OpenForm btnGerar_Grafico
End Sub

- salve e feche o seu banco de dados!
- agora no VB, insira o seguinte código no seu button para fazer a chamada ao form:

Set oAccess = CreateObject("Access.Application")
oAccess.Visible = True
oAccess.OpenCurrentDatabase "C:Documents and SettingsJuniorDesktop estes ppt de Sistema em VB6 - FULLSistemaTimeSheet.mdb"
oAccess.Run "OpenAccForm", "btnGerar_Grafico"

É só isso!

Um forte abraço a todos!