questo è il codice che genera errore:

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim strCon As String
strCon = Application.CurrentProject.Connection
con.Open strCon

strSql = " SELECT Bene_Id_num" _
& " FROM Bene" _
& " WHERE Bene_Etichetta_num = 'et'"

rs.Open strSql, con

If (rs.RecordCount = 0) Then
MsgBox ("Errore!")
Else

prova.Text = rs.Fields("Bene_Id_num").Value

End If


rs.ActiveConnection = Nothing
rs.Close
con.Close


End Sub


l'errore viene generato nella riga

prova.Text = rs.Fields("Bene_Id_num").Value


il debug segnala errore di run-time 3021: Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

aiutatemi!!!