Visual Basic 6 - Sommare il contenuto di un campo di una tabella db access

Ciao non riesco come detto sopra ad ottenere il risultato di un campo chiaramente contenente cifre di una tabella

la mia connessione al db e la seguente:

Private Sub Form_Load()
ApriConnessione App.Path & "\*.mdb"
End Sub

e un modulo

Option Explicit

Public Conn As Connection

Public Sub ApriConnessione(NomeFileDatabase As String)
Set Conn = New Connection

Conn.ConnectionTimeout = 30
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & NomeFileDatabase
Conn.Open

End Sub

Public Function ApriRecordSet(ComandoSQL As String)
Dim rs As Recordset

Set rs = New Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open ComandoSQL, Conn, , , adCmdText
Set ApriRecordSet = rs
End Function

Public Sub ChiudiConnessione()
Conn.Close
End Sub

bene come per aggiungere una lista ad un combo vedi dopo pensavo di sommare i dati che so leggi rs e memorizzalo, poi leggi il successivo, sommalo e memorizzalo cosi via fino alla fine.



Dim cmdSql As String
Dim rs As Recordset

'Carica i dati dal DB
cmdSql = "select distinct **from **"
Set rs = ApriRecordSet(cmdSql)

'Mette i dati nella combo
Do While rs.EOF = False
Combo1.AddItem rs.Fields("**"
rs.MoveNext
Loop

grazie ciao

Questo topic è in violazione di una o più norme del regolamento: pierotofy.it/pages/extras/forum/9/3839-regolamento/ .
    
Dopo averlo letto riapri un nuovo topic assicurandoti di aver rispettato le regole. Grazie per la tua pazienza.