Private Sub CommandButton1_Click()
    
    Set con = CreateObject(“adodb.connection”)
    Set rs = CreateObject(“adodb.recordset”)
    con.Open “Provider=sqloledb; Data Source=db-serv;Initial Catalog=test; User Id=admin; Password=admin;”
    rs.Open “select *from test2″, con
    i = 2
    Do While Not rs.EOF
        Cells(i, 2) = rs(“categorie”)
        rs.movenext
        i = i + 1
    Loop
    rs.Close
    Set rs = Nothing
    Set con = Nothing
    
End Sub