We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Income() Call OPEN_Win("FamilyTEXP", "Winpos") Dim rs As ADODB.Recordset Dim sql As String Set rs = New ADODB.Recordset sql = "SELECT SUM(TheIncomAmount) as TotalAmount FROM MyIncome" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open sql, cn With rs Gincome.Caption = (rs("TotalAmount")) Gincome.Caption = Format(Gincome, "###,##0,#00.00") End With Set rs = Nothing End Sub
Join the community of 500,000 technology professionals and ask your questions.