Hjælp haster! Update metode

Jeg har opdateret den med point ovenfor...

Hej, jeg kan ikke få mit recordset til at updatere med update metoden:
Alt fungerer i dette script tilfredsstillende på nær
objRS_medarb("txBrugernavn") = strBrugernavn
objRS_medarb.Update
hvor jeg gerne vil have at recordsettet opdateres med strBrugernavn - det kan jeg ikke få den til.
Hvad er galt?

    Set objRS_medarb = Server.CreateObject("ADODB.Recordset")
    strLederID = Session("UserID")
	strSQLQuery = "SELECT tbl_medarbejder.txBrugernavn, tbl_medarbejder.medarbID FROM tbl_BUF INNER JOIN tbl_medarbejder ON tbl_BUF.ID = tbl_medarbejder.LederID WHERE (((tbl_BUF.ID)=  " & strLederID & " ))"
	objRS_medarb.Open strSQLQuery, objConn, 3, 3
	
	bolDublet = False 
	Do While Not (objRS_medarb.EOF OR bolDublet)
		If (strComp(objRS_medarb("txBrugernavn"), strBrugernavn, vbTextCompare) = 0) Then
		Response.Write "strcomp ER lig med 0!!!!"
		
		
		strBrugernavn = Replace(strFoedsel,"-","") & "-" & Session("Orgnr") & "-" & objRS_medarb("medarbID")
		
	
		objRS_medarb("txBrugernavn") = strBrugernavn
		objRS_medarb.Update

		bolDublet = True
	
		End If
		
		objRS_medarb.MoveNext
		Loop