ComboBox et TextBox en cascade

Private Sub UserForm_Initialize()
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.Path & "\" & "CP_PAYS.xls"
  Set rs = cnn.Execute("SELECT code FROM BD WHERE code<>0 GROUP BY code")
  Me.ComboBoxCP.List = Application.Transpose(rs.GetRows)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Private Sub ComboBoxCP_Change()
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.Path & "\" & "CP_PAYS.xls"
  Set rs = cnn.Execute("SELECT Lieu FROM BD WHERE code=" & Me.ComboBoxCP)
  Me.ComboBoxLieu.List = Application.Transpose(rs.GetRows)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Private Sub ComboBoxLieu_Change()
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.Path & "\" & "CP_PAYS.xls"
  Sql = "SELECT canton,pays,cant,pay FROM BD WHERE code=" & Me.ComboBoxCP & " AND lieu='" & _
    Me.ComboBoxLieu & "'"
  Set rs = cnn.Execute(Sql)
  Me.TextBoxCanton = rs("canton")
  Me.TextBoxPays = rs("Pays")
  Me.TextBoxCant = rs("cant")
  Me.TextBoxPay = rs("pay")
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub