Non riesco a comprendere il motivo dell'errore. Ho controllato il passaggio dei parametri, la query va bene.Sto tentando di creare funzioni di libreria per UPDATE/INSERT/DELETE con Oledb.OledbParameter:

OleDbCon = New OleDb.OleDbConnection
Oledbcom = New OleDb.OleDbCommand

OleDbCon.ConnectionString = ConnDB
Oledbcom.CommandText = Quer
Oledbcom.Connection = OleDbCon

OleDbCon.Open()
LanciaParametri(prm, StrutDaPassare)
OleDbAdpt.SelectCommand = Oledbcom
OleDbAdpt.Fill(ds) 'qui l'errore
dt = ds.Tables(0
Beep()

Query:
"SELECT tbl_EntrateUscite.ID_EntrateUscite, " & _
"tbl_EntrateUscite.Data_Operazione, tbl_Soggetti.Nome, tbl_EntrateUscite.Descrizione, " & _
"tbl_EntrateUscite.Amm_ent_usc, tbl_EntrateUscite.Note, " & _
"tbl_EntrateUscite.tbl_Cat, tbl_EntrateUscite.tbl_Sog, tbl_Soggetti.Cognome " & _
"FROM tbl_Soggetti INNER JOIN (tbl_Categorie INNER JOIN tbl_EntrateUscite ON " & _
"tbl_Categorie.id_Categorie = tbl_EntrateUscite.tbl_Cat) ON tbl_Soggetti.ID_Soggetto = " & _
"tbl_EntrateUscite.tbl_Sog WHERE (((tbl_EntrateUscite.Descrizione)=? AND " & _
"tbl_EntrateUscite.Data_Operazione=? " & _
"AND tbl_EntrateUscite.Amm_ent_usc=?))ORDER BY tbl_EntrateUscite.Descrizione;"

Passo i parametri con due Array contenuti in una matrice:

DaTrovVal.Add("COOP ADRIATICA") 'String Descrizione
TpPrm.Add(DbType.String)
DaTrovVal.Add("05/01/2008") 'DataTime Data_Operazione
TpPrm.Add(DbType.DateTime)
DaTrovVal.Add("-€ 13,14") 'Currency Amm_ent_usc
TpPrm.Add(DbType.Currency)

Rcd = New WindowsApplication1.MieClassePersonale.Record(TpPr m, DaTrovVal)