strFormName: Fenstername z.B. F_AD, F_AKT, F_VOR (siehe Pane_Show)
strDsn: Datensatznummer


Public Sub Pane_FindDSN(ByVal strFormName As String, ByVal strDsn As String)
    Dim oPane As Object

    Select Case m_oApplication.FlowFact_InitType
        Case INITTYPE_APPLICATION
            Set oPane = m_oApplication.FlowFact_Application.Panes(strFormName)
            If (oPane Is Nothing) = False Then
                oPane.FindDsn strDsn
                oPane.Show
            End If
        Case INITTYPE_CONNECTOR
            'do nothing
        Case Else
            RaiseError_NotInit
    End Select
End Sub