Private rsset As Object
Private cn As Object
Private ConnectString_MS As String
Private Sql As String

ConnectString_MS = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Slash;Password=Pass;Initial Catalog=Name;Data Source=192.168.1.1"
Set cn = New ADODB.Connection
Set rsset = New ADODB.Recordset
cn.ConnectionString = ConnectString_MS
cn.Open

If cn.state = 1 Then
  Sql = "select name from table"
  Set rsset = cn.Execute(Sql)

  Do Until rsset.EOF
     Combo1.AddItem rsset("name")
     rsset.MoveNext
  Loop

  Set rsset = Nothing
  cn.close
End If
Set cn = Nothing