commande ADO

Private Sub UserForm_Initialize()
  'Microsoft ActiveX Data Object 2.8 doit être activé
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path & "\"
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & répertoire & "classeur2.xls"
  Set rs = cnn.Execute("SELECT * FROM BD WHERE [NoDEVIS]<>''")
  Me.ComboBox1.List = Application.Transpose(rs.GetRows)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Private Sub ComboBox1_Change()
  Me.TextBox3 = Me.ComboBox1.Column(1)
  Me.TextBox2 = Me.ComboBox1.Column(3)
End Sub