I want to update a database grid from vb this is my code which is not working
Code:
Private Sub Update_Bank_Balances()
Set Titles = New clsTitle
With frmTopFront.adoSo*****k.Recordset
.MoveLast
'Set DB to accept New Input
.AddNew
.Fields(0) = Titles.strBSName
.Fields(1) = Titles.strSortBName
.Fields(2) = Titles.strIbanNum
.Fields(3) = Titles.strYears
.Fields(4) = Titles.strAccNum(0)
.Fields(5) = Titles.strSortCode(0)
.Fields(7) = Titles.strGrossSum(0)
.Fields(8) = Titles.strGrossSum(1)
.Fields(9) = Titles.strGrossSum(2)
.Fields(10) = Titles.strGrossSum(3)
.Fields(11) = Titles.strAccNum(1)
.Fields(12) = Titles.strSortCode(1)
.Fields(14) = Titles.strGrossSum(4)
.Fields(15) = Titles.strGrossSum(5)
.Fields(16) = Titles.strGrossSum(6)
.Fields(17) = Titles.strGrossSum(7)
.Fields(18) = Titles.strAccNum(2)
.Fields(19) = Titles.strSortCode(2)
.Fields(21) = Titles.strGrossSum(8)
.Fields(22) = Titles.strGrossSum(9)
.Fields(23) = Titles.strGrossSum(10)
.Fields(24) = Titles.strGrossSum(11)
'Update Recordset
frmTopFront.adoSo*****k.Recordset.Update
frmTopFront.adoSo*****k.Refresh
'Re-Sort DataGrids
frmTopFront.adoSo*****k.Recordset.Requery
frmTopFront.adoSo*****k.Recordset.MoveFirst
frmTopFront.adoBanking.Recordset.Update
frmTopFront.adoBanking.Refresh
frmTopFront.adoBanking.Recordset.Requery
frmTopFront.adoBanking.Recordset.MoveFirst
End With
End Sub