Problemer med 2 connections

Hej. Jeg har lige et problem med at jeg kommer til at lave flere connections samtidig. I dette eksempel vælger jeg top ti navne ud i ObjDataReader("Navn"). Hver gang et navn bliver hentet ud, skal kolonnen "Visning" tælle én op for de navne der er udtrukket, i tabellen bruger.   

Men jeg får et problem med at have både SELECT og UPDATE kørende samtidigt, da der ikke kan skabes en ny connection før den anden er lukket. Er det en molbo-agtig måde jeg gør det på? Kan det gøres smartere? 

strSQL = "SELECT TOP 10 Navn FROM Bruger;"
'her kommer nogle WHERE-kriterier

objComm = New OleDbCommand(strSQL, objConn)
objDataReader = objComm.ExecuteReader()               

Do While objDataReader.Read = True               
                   
StrSql = "UPDATE Bruger SET [Bruger.Visning] = [Bruger.Visning]+1 WHERE Bruger.Navn = '" & ObjDataReader("Navn") & "';"   
       
objComm = New OleDbCommand(strSQL, objConn)
objDataReader = objComm.ExecuteReader()

Loop