codice:
Sub temp3()
'
' temp3 Macro

'

#

'

Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long

#

'Connect to the# Access Database

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _

"Data Source=H:\GENERALE MMP 2014\LISTE PRELIEVO MMP 2014\Produzione2014.mdb;"

' open a recordset

Set rs = New ADODB.Recordset

rs.Open "Lista2014", cn, adOpenKeyset, adLockOptimistic, adCmdTable

' all record in a table

r = 2 ' The start Raw in the table

#

Do While Len(Range("A" & r).Formula) > 0

' repeat until first empty cell in column A

### With rs

####### .AddNew ' Create a new record

####### ' add values to each field in the record

####### .Fields("Data") = Range("A" & r).Value

####### .Fields("Codice") = Range("B" & r).Value

####### .Fields("Descrizione") = Range("C" & r).Value

####### .Fields("UM") = Range("D" & r).Value

####### .Fields("Quantità") = Range("E" & r).Value

####### '.Fields("Quantità") = Range("E" & r).Value

####### 'add more fields if necessary...

####### .Update ' stores the new records

### End With

### r = r + 1 'next row

Loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub
Con questo codice trasferisco i dati del mio Sheen dentro la tabella "Lista2014" nel file "Produzione2014.mdb"

Il mio problema è che quei dati durante la giornata possono subire delle variazioni. Quindi la mia domanda è
Come posso Integrare la macro sopra per far sì che apra la tabella access "Liste2014" rilevi tutti i campi con Data "X", si posizioni sui record corrispondenti e li cancelli e poi inserisca i nuovi record che andranno a rimpiazzarli.

Non mi è ben chiaro com'è il meccanismo di puntamento sui record in linguaggio VB

Grazie