Public Function TabellenEintragen(cCon As ADODB.Connection, TableName As String)
   Dim oCat As ADOX.Catalog
   Dim oCmd As ADODB.Command
 
   Set oCat = New ADOX.Catalog
   Set oCat.ActiveConnection = cCon
 
    For i = 0 To oCat.Tables.Count - 1
      If UCase$(Left$(oCat.Tables(i).Name, 4)) <> "MSYS" Then
 
         List1.AddItem UCase(oCat.Tables(i).Name) & " " & oCat.Tables(i).Type
 
      End If
    Next i
 
    End Function