Hi Everybody !

I got this error(Title) and I dont know where to begin the "Debug operation" ???

Here is my code (Sorry some words are in french), the error occurs at the Bolded/Underlined line
VB Code:
  1. 'Initialisation de la Connection et du Recordset

  2.         'Instanciation des variables

  3.         Set rs = New ADODB.Recordset

  4.         Set cn = New ADODB.Connection

  5.         'Connection et ouverture de la Database

  6.         cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & lblProjetSource.Caption

  7.         

  8. 'Afficher les données (Onglet Informations)

  9.         'Ouverture de la Connection

  10.         cn.Open

  11.         'Ouverture du Recordset

  12.         rs.Open "Informations", cn, adOpenKeyset, adLockPessimistic, adCmdTable

  13.         rs.MoveFirst

  14.                 frMain.txtNoProjet.Text = rs.Fields("NoProjet").Value

  15.                 frMain.cboInfoRepresentant.Text = rs.Fields("Representant").Value

  16.                 frMain.cboInfoTypeClient.Text = rs.Fields("TypeClient").Value

  17.                 frMain.txtNom(0).Text = rs.Fields("NAcheteur1").Value

  18.                 frMain.txtPrenom(0).Text = rs.Fields("PAcheteur1").Value

  19.                 frMain.txtNom(1).Text = rs.Fields("NAcheteur2").Value

  20.                 frMain.txtPrenom(1).Text = rs.Fields("PAcheteur2").Value

  21.                 frMain.txtCompagnie.Text = rs.Fields("Compagnie").Value

  22.                 frMain.txtContactP.Text = rs.Fields("PContact").Value

  23.                 frMain.txtContactN.Text = rs.Fields("NContact").Value

  24.                 frMain.txtAdresse(0).Text = rs.Fields("AddActuelle").Value

  25.                 frMain.txtVille(0).Text = rs.Fields("VilleActuelle").Value

  26.                 frMain.txtCodePostal(0).Text = rs.Fields("CPostalActuel").Value

  27.                 frMain.txtAdresse(1).Text = rs.Fields("AddFutur").Value

  28.                 frMain.txtVille(1).Text = rs.Fields("VilleFutur").Value

  29.                 frMain.txtCodePostal(1).Text = rs.Fields("CPostalFutur").Value

  30.                 frMain.txtTelephone(0).Text = rs.Fields("TelephoneR").Value

  31.                 frMain.txtTelephone(1).Text = rs.Fields("TelephoneC").Value

  32.                 frMain.txtTelephone(2).Text = rs.Fields("TelephoneB").Value

  33.                 frMain.txtTelephone(3).Text = rs.Fields("Telecopieur").Value

  34.                 frMain.txtCourriel.Text = rs.Fields("Courriel").Value

  35.                 frMain.lblDatedujour.Caption = rs.Fields("Date").Value

  36.         'Fermeture de la connection ADO

  37.         rs.Close

  38.         cn.Close

  39.  
  40. 'Afficher les données Cotation

  41.         'Ouverture de la Connection

  42.         cn.Open

  43.         'Ouverture du Recordset

  44.         rs.Open "Cotation", cn, adOpenKeyset, adLockPessimistic, adCmdTable

  45.         rs.MoveFirst

  46.                 frMain.txtVente.Text = rs.Fields("Vente").Value

  47.                 frMain.txtEntente.Text = rs.Fields("Entente").Value

  48.                 frMain.txtEchange.Text = rs.Fields("Echange").Value

  49.                 frMain.txtAccompte.Text = rs.Fields("Accompte").Value

  50.                 frMain.txtTaxe1 = rs.Fields("Taxe1").Value

  51.                 frMain.txtTaxe2 = rs.Fields("Taxe2").Value

  52.                 varCreditTaxe = rs.Fields("TaxeRed").Value

  53.                 If rs.Fields("TaxesReduitesApp").Value = "True" Then

  54.                         frMain.chkTaxesRed.Value = vbChecked

  55.                 Else

  56.                         frMain.chkTaxesRed.Value = vbUnchecked

  57.                 End If

  58.         'Fermeture de la connection ADO

  59.         rs.Close

  60.         cn.Close

  61.  
  62. 'Afficher les données Maison

  63.         'Ouverture de la Connection

  64.         cn.Open

  65.         'Ouverture du Recordset

  66.         rs.Open "Maison", cn, adOpenKeyset, adLockPessimistic, adCmdTable

  67.         rs.MoveFirst

  68.                 frMain.cboMaisonType.Text = rs.Fields("TypeMaison").Value

  69.                 [U][B]frMain.cboMaisonModele.Text = rs.Fields("ModeleMaison").Value[/B][/U]

  70.                 frMain.cboMaisonNbChambre.Text = rs.Fields("NbreChambre").Value

  71.                 frMain.txtDim(0).Text = rs.Fields("DimMaison1").Value

  72.                 frMain.txtDim(1).Text = rs.Fields("DimMaison2").Value

  73.                 frMain.txtDim(2).Text = rs.Fields("DimAnnexeA1").Value

  74.                 frMain.txtDim(3).Text = rs.Fields("DimAnnexeA2").Value

  75.                 frMain.txtDim(4).Text = rs.Fields("DimAnnexeB1").Value

  76.                 frMain.txtDim(5).Text = rs.Fields("DimAnnexeB2").Value

  77.                 frMain.txtDim(6).Text = rs.Fields("DimGarage1").Value

  78.                 frMain.txtDim(7).Text = rs.Fields("DimGarage2").Value

  79.                 frMain.txtSuperficie.Text = rs.Fields("Superficie").Value

  80.                 frMain.cboMaisonGarantie.Text = rs.Fields("Garantie").Value

  81.         'Fermeture de la connection ADO

  82.         rs.Close

  83.         cn.Close
Thanks in advance !