Tipo dato Long

Ciao a tutti

Ho notato che questo codice  che legge il num. dei record:

Private Sub NumRecordFrmDettaglioRegistrazioni(IdReg)
Me.Refresh
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "Select * FROM TblDettRegistrazione", con, adOpenKeyset, adLockOptimistic
rst.Filter = "IdRegistrazione=" & IdReg
Dim NumRecord As Long
NumRecord = rst.RecordCount
MsgBox NumRecord
    If NumRecord > 1 Then
    DoCmd.RunCommand acCmdDeleteRecord
    End If
If NumRecord = 1 Then
DoCmd.RunCommand acCmdDeleteRecord
'Me.AllowAdditions = True
End If

If rst.EOF Then
MsgBox " Non ci sono record da eliminare"
Exit Sub
End If
rst.Close
con.Close
Set rst = Nothing
Set con = Nothing
rst.Close
con.Close
Set rst = Nothing
Set con = Nothing
End Sub

Dim NumRecord as long

l'istruzione NumRecord = rst.RecordCount  mi da problemi di tipo dato

Se gira su office 2010  va bene;  su office 365 no

Se dichiaro Dim NumRecord as LongLong  su office 365 va bene, 

E' chiaro che  posso operare solo su un pc 

Esiste un modo che mi consenta di non avere questo problemi e di operare su entrambi i pc?

Grazie

Saluti

RG