Tabort poster

Det är något fel med loopen när jag ska ta bort poster ur tabellen.

Nån som har en idé???

If Request.QueryString("alt") = "delete_user" then

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT tblKommunikationSend.*, tblKommunikationRegister.* FROM tblKommunikationSend, tblKommunikationRegister"
	strSQL = strSQL & " WHERE tblKommunikationSend.sCounter = tblKommunikationRegister.sCounter "
	strSQL = strSQL & " AND tblKommunikationRegister.sAnvandarID = " & Request.Form("user") &" AND tblKommunikationRegister.sPrivat = '20'"
	RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic 

	If RecSet.EOF AND RecSet.BOF Then
		RecSet.Close
	Response.Write("Ej borttaget!<br>")
	Else
		Do Until RecSet.EOF 
			RecSet.Delete 
		Loop 
		RecSet.Close
		
		Response.Write("Borttaget!<br>")
	End If

End If

// Switch

Så här kanske?

If Request.QueryString("alt") = "delete_user" then

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT tblKommunikationSend.*, tblKommunikationRegister.* FROM tblKommunikationSend, tblKommunikationRegister"
	strSQL = strSQL & " WHERE tblKommunikationSend.sCounter = tblKommunikationRegister.sCounter "
	strSQL = strSQL & " AND tblKommunikationRegister.sAnvandarID = " & Request.Form("user") &" AND tblKommunikationRegister.sPrivat = '20'"
	RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic 

	If RecSet.EOF AND RecSet.BOF Then
		RecSet.Close
	Response.Write("Ej borttaget!<br>")
	Else
		Do Until RecSet.EOF 
			RecSet.Delete
			[red]RecSet.MoveNext[/red]
		Loop 
		RecSet.Close
		
		Response.Write("Borttaget!<br>")
	End If

End If

Har testat och kört det några gånger, men jag får ett elakt felmeddelande.

Microsoft OLE DB Provider for ODBC Drivers (0x80040E23)
Row handle referred to a deleted row or a row marked for deletion

På något vis så måste jag ur loopen, men hur???