sum() function problem help plz...

[gillian3114]

 
why this sum function won't work ? 
eg Sum(personal)
lblPersonal.Caption it wont retrieve the sum value of personal
 
Dim cn6 As New ADODB.Connection
Dim strCNString4 As String
Dim rs6 As New ADODB.Recordset
Dim intFound6 As Double
 
strCNString6 = "Data Source=" & App.Path & "\PayrollBakeryDB.mdb"
cn6.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn6.ConnectionString = strCNString6
 
cn6.Open
 
    With rs6
        '.Open "SELECT Sum(personal), Sum(sick), Sum(vacation), Sum(maternity), emp_id, from_date, to_date FROM leavela WHERE Month(from_date)=" & intMonth & " and Year(from_date)=" & intYear & " and Month(to_date)=" & intMonth & " and Year(to_date)=" & intYear & " GROUP BY emp_id, from_date, to_date ", cn6, adOpenDynamic, adLockOptimistic
 
         Do Until .EOF
 
             If !emp_id = txtEmp_ID.Text Then
                   lblPersonal.Caption = rs6.Fields(0) 'here
                   lblSick.Caption = rs6.Fields(1) 'here
                   Vacation.Caption = rs6.Fields(2) 'here
                   lblMaternity.Caption = rs6.Fields(3) 'here
 
                    intFound6 = 1
             End If
 
            .MoveNext
          Loop
 
          'If intFound6 = 0 Then
                   'MsgBox "Employee ID not found !", vbExclamation, "Error"
          'End If
 
     End With
 
 
 
 

[Killer42]

Can you give us more of an idea as to what the problem is, than "won't work"?