Encore moi désolé,
je désire faire une somme de l'un de mes champs et l'attribuer a une variable. J'obtiens le message d'erreur " "
Dim MaBase As String
Dim Db2 As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim somme As Integer
MaBase = "C:\Documents and Settings\pat\Bureau\VB\Projet\bd1.mdb"
Db2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBase
Set Rs = Db2.Execute("SELECT sum(tot_cout) FROM gdp")
somme = Rs("sum(cout)")
total.Caption = somme
prenom.Caption = Rs("total")
Rs.Close
Db2.Close