I have a proble. How can i call andd compute all the record in may database(MS Access) Please gave me some idea or Code Thx

Please gave me some idea

Use Sum function in your sql query.

or Code Thx

modified as you needed :

Private Sub Command1_Click()
    Dim Conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sConnect As String
    sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "emp.mdb"
    'Replace emp with your file name
    Conn.Open sConnect
    rs.Open "select sum(quantity) from purchase", Conn, adOpenDynamic, adLockPessimistic
    Msgbox rs.Fields(0).Value
End Sub