Ho provato così ma non funziona!


Set cnado = New ADODB.Connection
cnado.Open = "dsn=prova"
Set rs = cnado.OpenSchema(adSchemaTables)
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = "TABLE_NAME" Then
TableName$ = CStr(rs.Fields(i).Value)
End If
If rs.Fields(i).Name = "TABLE_TYPE" Then
If rs.Fields(i).Value = "TABLE" Then
TxtTable.Text = TxtTable.Text & TableName$ & vbCrLf
TableName$ = ""
End If
End If
listable.AddItem (rs.Fields(i).Name + "=" + CStr(rs.Fields(i).Value))
Next
rs.MoveNext
Loop

Come posso fare?