Public Sub FormOpen(bModal As Boolean, bVisible As Boolean, CurrParentID As String, CurrLocationType As String, Optional fParentform As Form)
     'Set datDirs.Recordset = RunSP("REC", "s_FRCBL", "42330", "Shipper")
    sOrder = "Company"
    strFilter = "Company" 'sFilter
 
 
    Screen.MousePointer = vbHourglass
    DataRefresh strFilter, sOrder
    Screen.MousePointer = vbDefault
 
    StartingPointer = 0
    If Not StartingPointer = 0 Then
        'Pointer to Current Selection has been requested
        With datDirs.Recordset
            If .RecordCount > 0 Then
                .MoveFirst
                .Find "ID=" & StartingPointer
                If Not .EOF Then
                    TDBCust.Bookmark = .AbsolutePosition
                Else
                    'If not found in the list specified, look in the un-validated entries
                    DataRefresh strFilter, sOrder
                    If Not datDirs.Recordset.EOF Then
                        datDirs.Recordset.MoveFirst
                        .Find "ID=" & StartingPointer
                        'lstDirs.Bookmark = datDirs.RecordSet.AbsolutePosition
                    End If
                End If
            End If
        End With
     End If
 
 
   Me.Show Abs(bModal)
End Sub
Private Sub DataRefresh(CurrFilter As String, CurrOrder As String)
Dim x As Integer
Dim strCurrFilter As String
 
    strCurrFilter = UCase(CurrFilter)
    Screen.MousePointer = vbHourglass
 
    'Refresh List Message Opens
    'cmdLoading.Visible = True
    DoEvents
    Me.AutoRedraw = False
 
    Set datDirs.Recordset = RunSP("REC", "s_DirectoryListByRole", strCurrFilter, CurrOrder)
 
    TDBCust.ReBind
 
    DirectoryListFormat sOrder
    'lDirectoryId = TDBCust.Columns("ID")
    With datDirs.Recordset
        If Not lDirectoryId = 0 Then
            .Find "ID=" & lDirectoryId
            If .EOF Then
                If Not .BOF Then
                    .MoveFirst
                End If
                SendKeys "{Home}+{Down}"
            Else
                TDBCust.Bookmark = .AbsolutePosition
            End If
        Else
            If Not .BOF Then
                .MoveFirst
            End If
 
        End If
    End With
    DoEvents
    Screen.MousePointer = vbDefault
    Me.AutoRedraw = True
    'Me.Caption = strCurrFilter & " " & datDirs.Recordset.RecordCount
 
End Sub