如何调用后台窗体数据

Function OpenObj(ObjectType As String, Accessname As String, Objectname As String) As String
'功能:获取其他Access数据库中的对象中控件字符串
'参数:ObjectType--类型参数，AllForms=窗体；AllReports=报表；AllDataAccessPages=数据访问页
'     Accessname--Access数据库名称字符串
'     Objectname --对象名称字符串
Dim appAccess As New Access.Application
appAccess.OpenCurrentDatabase Accessname
appAccess.Visible = True
Select Case ObjectType
    Case "AllForms"
        appAccess.DoCmd.OpenForm Objectname
    Case "AllReports"
        appAccess.DoCmd.OpenReport Objectname
    Case "AllDataAccessPages"
        appAccess.DoCmd.OpenDataAccessPage Objectname
    Case Else
        Exit Function
End Select
End Function