Public Static Sub WhoAreYou()
Dim rst As ADODB.Recordset
Dim fld                        As ADODB.Field
 Set rst = cnnRemDataServerCursor.OpenSchema(Schema:=adSchemaProviderSpecific, _
                                                   SchemaID:= "{947bb102-5d43-11d1-bdbf-00c04fb92675}" )
'Debug.Print rst.GetString
    With rst
        Do Until .EOF
        
            For Each fld In .Fields
                Debug.Print fld.Name, Trim(fld.Value)
            Next fld
            Debug.Print  " " 
            .MoveNext
            Debug.Print
        Loop
    End With
rst.Close
Set rst = Nothing
End Sub