[VBA Access XP] Accodamento dati fallito

[Driuk]

Ho questo codice legato all'evento click di un bottone in una maschera di
Access XP che mi accoda dei dati presi da un recordset ad una tabella:

Set objConn = New ADODB.Connection
    
	objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=" & BEpath & ""
        objConn.Open

    Set objRS = objConn.Execute("SELECT id_fruitore FROM 					
Tbl_servizi_fruitori where id_servizio = '" & serv & "'")

objRS.MoveFirst

While Not objRS.EOF
	MsgBox objRS.Fields("id_fruitore").Value
	objConn.Execute "INSERT INTO Tbl_servizi_fruitori " & _
                 	"(id_servizio,id_fruitore) " & _
                 	"VALUES ('" & _
                 	serv & "','" & objRS.Fields("id_fruitore").Value & "');"
   	objRS.MoveNext
Wend

Ogni volta che provo a lanciare il comando access mi comunica gentilmente che non può accodare i dati perchè la tabella è in uso.
A questo punto mi si pone un problema: come posso aggirare il blocco della
tabella siccome la suddetta tabella è in uso dalla maschera da cui lancio
il comando? Esiste un modo per farlo???

Grazie a tutti!