GetDatabase

Public Sub GetDatabases(strDriver As String, _
strServer As String,cboToFill As ComboBox)

Dim cn As New ADODB.Connection
Dim rsSchema As New ADODB.Connection
Dim ConnStr As String

On Error Goto GetDB_Err

ConnStr = "driver={" & strDriver & "};"ConnStr = ConnStr & _
"server=" & strServer & ";"ConnStr = ConnStr & _
"uid=sa;pwd=;"cn.ConnectionString = ConnStr
cn.Open

Set rsSchema = cn.OpenSchema(adSchemaCatalogs)

Do Until rsSchema.EOF
cboToFill.AddItem rsSchema!Catalog_Name
rsSchema.MoveNextLoop

Exit Sub

GetDB_Err:
If Err.Number = -2147467259 Then
MsgBox "Inserire un NomeServer valido.", vbOKOnly
cboSvrName.SetFocus
End If

End Sub
Inputs:
strDriver - ODBC Driver
strServer - Name of Server
cboToFill - Combo Box to fill With DBs