Public Sub Refresh(ByVal SQLString As String)
        'Eine Table wir mit den neusten Daten aus der DB gefüllt
        Dim tmpAdapter As OleDbDataAdapter = Nothing
        Dim tmpTable As DataTable = Nothing
 
        Try
            tmpAdapter = cAdapters(SQLString.ToLower)
            tmpTable = cTables(SQLString.ToLower)
        Catch ex As Exception
            RaiseEvent Err(ex)
        End Try
 
        Try
            tmpTable.Clear()
            tmpAdapter.Fill(tmpTable)
            tmpAdapter.FillSchema(tmpTable, SchemaType.Source)
        Catch ex As Exception
            RaiseEvent Err(ex)
        End Try
        tmpAdapter = Nothing
        tmpTable = Nothing
    End Sub