[VB 6 SP6]ADDNEW data error

[djlight]

Ciao ragazzi ho un quesito.
Ho un db access.
Attraverso mshflexgrid visualizzo il contenuto di tabella
solo che una delle colonne della tabella è una data. Per fare in modo che la data venisse inserita correttamente ho dovuto creare questo codice altrimenti vi veniva in formato mm/dd/yyyy

ora il codice è
With Adodc
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\saggi.mdb;Persist Security Info=False"
.RecordSource = "select Format(data,'dd/mm/yyyy'),prodotto,quantità,isf,medico from SCARICO order by Data, Medico"
End With

Il problema è che ora quando vado ad inserire i dati mi da quest'errore

ERRORE DI RUNTIME 3265
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.

l'errore è qui
With Adodc1.Recordset
.AddNew
!data = txtArtistName
!prodotto = prodotto(0)
!Quantità = TxtCap(0)
!isf = isf(0)
!medico = medico(0)
.Update
.Requery
End With
con precisione alla riga
!data = txtArtistName

Ho provato a sostituire txtartistname con un valore ma mi da l'errore lo stesso.
ho provato a far visualizzare la data attraverso un msgbox e risulta corretta nel formato che il database dovrebbe accettare.
(non fate caso al fatto che la variabile data si chiami txtartistname per pigrizia non ho cambiato il nome)

Cosa ne pensate del problema?
ps.: se al posto di fare la select così
RecordSource = "select Format(data,'dd/mm/yyyy'),prodotto,quantità,isf,medico from SCARICO order by Data, Medico"

LA FACCIO COSI
RecordSource = "select * from SCARICO order by Data, Medico"

funziona l'inserimento ma ovviamente vedo la data in formato mm/dd/yyyy

AIUTO PLEASE!!!

[Brainjar]

Se il campo data della tua tabella è di tipo data, prova con :

     !data = CDate(txtArtistName.text)

al posto di :

     !data = txtArtistName

Ciao,

[djlight]

!data = CDate(txtArtistName.Text)
purtroppo mi da lo stesso errore sulla stessa riga cioè questa
!data = CDate(txtArtistName.Text)
io non riesco a capire perchè!
Quello che io non riesco a capire è perchè la select con format data crea il problema. Forse è mia ignorante ma che legame ha la select con la .addnew ?

[tas]

Nella query dovresti includere anche il campo Data:

.RecordSource = "select data, Format(data,'dd/mm/yyyy'), prodotto, quantità, isf, medico from SCARICO order by Data, Medico"

[djlight]

effettivamente così funzione anche se nella MSHFLEXGRID mi visualizza la data due volte.
Provo a vedere se riesco a dirgli di nascondere la data!