Private Sub Command1_Click()
Dim SVRname, DBname, Zapros As String
Dim MSGBX, DBnumber, i As Integer
SVRname = Text1.Text
If SVRname = "" Then
    MSGBX = MsgBox("Error", vbOKOnly, "Warning")
    Exit Sub
End If
Set CONN = New ADODB.Connection
Set RCD = New ADODB.Recordset
Zapros = "select NAME from sys.databases"
CONN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=" + SVRname
On Error Resume Next
CONN.Open
If Err Then
    Err.Clear
    MSGBX = MsgBox("Error!", vbOKOnly, "Warning")
    Text1.Text = ""
    Form1.Enabled = True
End If
RCD.CursorLocation = adUseClient
RCD.CursorType = adOpenStatic
RCD.Open Zapros, CONN
DBnumber = RCD.RecordCount
Label2.Caption = "DBnumber = " & DBnumber
For i = 1 To DBnumber
Combo1.AddItem RCD.GetRows(DBnumber)
Next i
RCD.Close
CONN.Close
Set RCD = Nothing
Set CONN = Nothing
End Sub