Private Function RefreshData()
 
    ' //
    ' Führt eine Neuladen der Datenquelle des DatenGrids durch
    ' //
 
    On Error GoTo proc_Error
 
    Dim objGrid As sevDataGrid2.sevGrid
 
    Set objGrid = Me.Controls(DATAGRID_NAME).Object
 
    ' Das Recordset neu abfragen
    objGrid.LockUpdate True
    objGrid.Recordset.Requery
    objGrid.LockUpdate False
 
    objGrid.Refresh
 
    SetStatusBarValues
 
proc_Exit:
    Exit Function
 
proc_Error:
    fShowErrorMessage Err.Number, Err.Description, Err.Source, "-RefreshData()"
    Resume proc_Exit
 
End Function