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 rs.Close Conn.Close End Sub