Public Sub test()
Dim ACCapp As Access.Application
Dim Af As Access.Form
Set ACCapp = CreateObject("Access.Application")
ACCapp.OpenCurrentDatabase "C:\Documents and Settings\Bluewater\桌面\1231.mdb", False
For Each Af In ACCapp.Forms
Debug.Print Af.Name & Af.标签1.Caption
Next
'ACCapp.Quit
End Sub