why this sum function won't work ? 
eg Sum(personal)
lblPersonal.Caption it wont retrieve the sum value of the personal field

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

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

Dim intFounds As String
strCNString = "Data Source=" & App.Path & "\PayrollBakeryDB.mdb"
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString

' why this cant work ?
      If txtUserName.Text = !s_username and txtUserName.Text = !m_username and txtUserName.Text = !b_username Then

          intFounds = 2
          MsgBox "UserName aleardy use by other staff !!", vbExclamation, "Create Account"

Dim rss As New ADODB.Recordset
Dim strID As String
Dim cnn As New ADODB.Connection
Dim strCNString As String
Dim intFound As Integer

strCNString = "Data

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCNString As String

strCNString = "Data Source=" & App.Path & "\final.mdb"
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Open

Dim sql As String

Dim intMonth As Integer
Dim intYear As Integer

If cboMonth.ListIndex = 0 Then
    intMonth = 1
ElseIf cboMonth.ListIndex = 1 Then
    intMonth = 2
ElseIf cboMonth.ListIndex = 2 Then
    intMonth = 3
ElseIf cboMonth.ListIndex = 3 Then
    intMonth = 4
ElseIf cboMonth.ListIndex = 4 Then
    intMonth = 5

  With rs3

        .Open "SELECT Sum(total_hr), Sum(total_ot_hr), emp_id FROM clock WHERE Month(working_date)=" & intMonth & " and Year(working_date)=" & intYear & "  and emp_id = ' " & txtEmp_ID.Text & " ' GROUP BY emp_id ", cn3, adOpenDynamic, adLockOptimistic
        Do Until .EOF
        ' why this cant show that sum value.

Dim cn3 As New ADODB.Connection
Dim strCNString3 As String
Dim rs3 As New ADODB.Recordset
Dim intFound3 As Integer

strCNString3 = "Data Source=" & App.Path & "\PayrollBakeryDB.mdb"