suma de colmunas en datagrid (vb6)

[black_devil]

Hola haslo en el evento Active del form

Private cn As ADODB.Connection' bueno es mi conexion en mi caso con ODODB ...
Private rs As ADODB.RecordSet
Public rs1 As ADODB.RecordSet


Private Sub Form_Activate()

On Error GoTo Errores
rs.Open "SELECT SUM(debe) FROM PAGOS", cn, adOpenDynamic, adCmdText
If (rs.BOF And rs.EOF) Then
rs.Close
MsgBox "Datos del registro no encontrados.", vbCritical + vbOKOnly, "Búsqueda de datos en el registro"
Else
lblsaldo.Caption = rs.Fields(0)
If lblsaldo.Caption < "0" Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo.ForeColor = vbBlue
End If

rs.Close
End If

rs1.Open "SELECT SUM(haber) FROM PAGOS", cn, adOpenDynamic, adCmdText
If (rs1.BOF And rs1.EOF) Then
rs1.Close
MsgBox "Datos del registro no encontrados.", vbCritical + vbOKOnly, "Búsqueda de datos en el registro"
Else
lblsaldo1.Caption = rs1.Fields(0)
If lblsaldo1.Caption < "0" Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo1.ForeColor = vbBlue
End If
lbresultado.ForeColor = vbRed
lblresultado.Caption = Val(lblsaldo.Caption) - Val(lblsaldo1.Caption)
rs1.Close
End If
Exit Sub
Errores:

End Sub

Espero que te sirva....