Hej! Jag har kört denna kod för att öppna och visa mina tabeller i en listbox, hur löser jag att systemfilerna inte ska visas? ex. MySysACEs, MySysColumns osv. Kan man även få tips hur jag kortar ner själva con.open till databasen, måste man skriva hela harangen eller? Tacka på förhand /mats

Dim con As ADODB.Connection
Dim rsTables As ADODB.Recordset
Dim fldField As ADODB.Field
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program\Microsoft Visual Studio\MINA PROJEKT\NEW ALDER\alder.MDB;Persist Security Info=False"

Set rsTables = con.OpenSchema(adSchemaTables)
Set fldField = rsTables("TABLE_NAME")
Do Until rsTables.EOF
lstTabeller.AddItem fldField
Debug.Print fldField.Value
rsTables.MoveNext
Loop

Testa så har så borde det fungera.

<code>
Do Until rsTables.EOF
If rsTables.Fields("TABLE_TYPE") = "TABLE" Then
LstTabeller.AddItem fldField.Value
Debug.Print fldField.Value
rsTables.MoveNext
Else
rsTables.MoveNext
End If
Loop
</code>

Curta

Tack för det Curtan, det gjorde susen /Mats