Private Sub AbfrageTabellen()
 
        Try
            rs.ActiveConnection = conn
 
            rs = conn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
 
            lsAusgabe.Items.Clear()
 
            Do While Not rs.EOF
                If UCase(rs("TABLE_TYPE").Value) = "TABLE" Then
                    lsAusgabe.Items.Add(rs("TABLE_NAME").Value)
                End If
                rs.MoveNext()
            Loop
            rs.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Info")
        End Try
 
    End Sub