Scusate l'intrusione

io utilizzo un applicativo vb6 e access.

Ho un problema con il begintrans ed il committrans

Praticamente è come se non mi venga riconosciuto il comando
ho scritto così:

adocontrolla.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\biblio.mdb';Mode=ReadWrite;Persist Security Info=False"
adocontrolla.RecordSource = "select * from tab_autori where nomeautore='" & Text1.Text & "' AND cognomeautore='" & Text2.Text & "'"
adocontrolla.Refresh


If (adocontrolla.Recordset.RecordCount > 0) Then
MsgBox "Autore già esistente!", vbCritical
Else
adoautori.begintrans
adoautori.Refresh
adoautori.Recordset.AddNew
adoautori.Recordset("nomeautore") = UCase(Text1.Text)
adoautori.Recordset("cognomeautore") = UCase(Text2.Text)
MsgBox "L'Autore è stato inserito", vbInformation
adoautori.Recordset.Update
adoautori.CommitTrans
End If

perchè mi appare l'errore

<impossibile trovare il metodo o il membro dei dati>

Cosa ho scritto male nel mio codice?

Praticamente il comando committrans non mi diventa "blu"
E'come se non venisse riconosciuto come un comando.

Io lavoro con vb6 service pack 6

Devo fare qualche aggiornamento o aggiungere qualche componente o riferimento al progetto?

GRAZIE 1000