[VB6] Ottenere DB

[wallrider]

e come lo implemento?
per esempio:

Dim p As ADOX.Tables
Set p = ???