Dim UPT_OGRLIST = "SELECT CARKOD,TBORC,TALACAK,TALACAK-TBORC AS BAKIYE FROM " &
"(SELECT A.CARKOD,IIF( TBORC IS NULL,0,TBORC)AS TBORC,IIF( TALACAK IS NULL,0,TALACAK)AS TALACAK FROM (SELECT CARKOD,BORÇ,ALACAK,BAKiYE AS BAKIYE FROM OGRENCILIST)A " &
"LEFT JOIN (SELECT CARKOD,SUM(BORÇ) AS TBORC,SUM(ALACAK)AS TALACAK FROM HAREKETLER GROUP BY CARKOD)B ON A.CARKOD=B.CARKOD )"
Dim dc = New OleDbCommand(UPT_OGRLIST, cn_access)
Dim rows As OleDb.OleDbDataReader
rows = dc.ExecuteReader
If rows.HasRows Then
Do While rows.Read()
Dim cm_OGRLIST As New OleDbCommand("UPDATE OGRENCILIST SET BORÇ='" & rows(1) & "',ALACAK='" & rows(2) & "',BAKiYE='" & rows(2) & "' WHERE CARKOD='" & rows(0) & "'", cn_access)
cm_OGRLIST.ExecuteNonQuery()
Loop
End If
ichanged my codes like this :)
make it do -loop