vb打开access数据库

Ⅰ 点击VB的命令按钮后，如何直接打开access窗体

楼上正解，我试了，好用。现在举例说明
Dim Office_Path As String 'Access安装路径
Office_Path = "C:\Program Files\Microsoft Office\OFFICE11\"
'call Shell(Office_Path & "Msaccess.exe " & "D:\TBCS08\TBCS08D.MDB", 3)'这是引用绝对路径，要打开的数据库名为TBCS08D.MDB,改成你自己的数据库名就行。
call Shell(Office_Path & "Msaccess.exe " & App.Path & "\TBCS08D.MDB", 3)'这是引用相对路径
下面是打开WORD与EXCEL方法，赠送
call Shell(Office_Path & "WINWORD.EXE") '打开WORD
call Shell(Office_Path & "EXCEL.EXE") '打开EXCEL