help with sql server

[abja]

hello,
i need to connect to sql server on local machine
with the local system account and list all the databases
Does anyone have any idea how to do this with vb6 ?
10x

[pclement]

One way is to use the ADO OpenSchema method:

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fld As ADODB.Field

cnn.Open "Provider=sqloledb;" & _
           "Data Source=(local);" & _
           "Initial Catalog=master;" & _
            "Integrated Security=SSPI"

Set rs = cnn.OpenSchema(adSchemaCatalogs)

While Not rs.EOF
    For Each fld In rs.Fields
        Debug.Print fld.NAME & ": " & fld.Value
    Next fld
    rs.MoveNext
Wend

cnn.Close