LER O CAPTION DE UM FORMULARIO DO ACCESS, SEM ABRI

Function cadastraforms()
    Dim frm As Form
    Set tbl = CurrentDb.OpenRecordset([Ô]SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.Name AS vnome_obj, Left([name],3) AS vnome [Ô] & _
                                      [Ô]FROM MSysObjects [Ô] & _
                                      [Ô]WHERE (((MSysObjects.Type)=-32768) AND ((Left([name],3))=[ô]frm[ô])) [Ô] & _
                                      [Ô]ORDER BY MSysObjects.Name;[Ô])
    If tbl.EOF = False Then
        tbl.MoveLast
        tbl.MoveFirst
        qtde = tbl.RecordCount
        For i = 1 To qtde
            Set tbl1 = CurrentDb.OpenRecordset([Ô]SELECT * [Ô] & _
                                               [Ô]FROM tbl_cad_usuario_permissoes [Ô] & _
                                               [Ô]WHERE (((tbl_cad_usuario_permissoes.nomesistema)=[ô][Ô] & tbl!vnome_obj & [Ô][ô]));[Ô])
            If tbl1.EOF = False Then
                novo_objeto = True
                txt = [Ô]form_[Ô] & tbl!Name
                [ô]DoCmd.OpenForm tbl!Name, acDesign
                [ô]Set frm = Forms(tbl!Name)
                [ô]With frm
                [ô]txt = frm.Caption
                [ô]End With
                [ô]DoCmd.Close acForm, tbl!Name
                [ô]Set tbl2 = CurrentDb.OpenRecordset([Ô]tbl_cad_usuario_permissoes[Ô])
                With tbl1
                    .AddNew
                    !tipo = [Ô]Formulário[Ô]
                    !nomesistema = tbl!Name
                    !nomeusuario = txt
                    !nivel_4 = True
                    !nivel_5 = True
                    .Update
                End With
                tbl1.Close
                Set tbl1 = Nothing
            End If
            [ô]tbl1.Close
            [ô]Set tbl1 = Nothing
            tbl.MoveNext
        Next i
    End If
    tbl.Close
    Set tbl = Nothing
    CurrentDb.Close
End Function