ник: SONAR
усё, ужо не надо, нарыл сам.
вот:
Sub OpenJetUserInfo(strDbPath As String)
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim strConnect As String
'Определяем строку подключений
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath
Set cnn = New ADODB.Connection
cnn.Open strConnect
'создаем набор записей с помощью метода OpenSchema
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, _
SchemaID:="{947bb102-5d43-11d1-bdbf-00c04fb92675}")
'выведем информацию о пользователе в окно отладки
With rst
Do Until .EOF
For Each fld In</font> .Fields
Debug.Print fld.Name, fld.Value
Next fld
.MoveNext
Debug.Print
Loop
End With
End Sub