dim testo as String
            dim appdataInizio as String, appdataFine as String
            dim dataInizio as String, dataFine as String
            dim con
            dim strCon as String
            strcon ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prova.mdb ;Persist Security Info=False"
            con = new OleDbConnection
            con.connectionstring=strcon
            dim prm as OleDbParameter
            dim drQuery as OleDbDataReader
            dim cmd as New OleDbCommand("Select * from query where (DataInizio < ?) and (DataFine > ?)",con)
            cmd.CommandType=Data.CommandType.StoredProcedure
            prm = new OleDbParameter
            prm.Direction = Data.ParameterDirection.Input
            prm.DbType = Data.DbType.String
            appdatainizio="01/12/2005"
            appdatafine="31/12/2005"
            datainizio=convert.ToDateTime(appdatainizio)
            datafine=convert.ToDateTime(appdatafine)
            datainizio=format(DataInizio,"MM/dd/yyyy")
            datafine=format(Datafine,"MM/dd/yyyy")
            prm.Value=datainizio
            cmd.Parameters.Add(prm)
            prm=new OleDbParameter
            prm.Direction = Data.ParameterDirection.Input
            prm.DbType = Data.DbType.String
            prm.Value=datafine
            cmd.Parameters.Add(prm)
            cmd.Connection=con
            con.open
'qui mi da l'errore: conversion from string "Select * from query to type integer is not valid        
            drQuery=cmd.ExecuteReader(cmd.CommandText)
            
            testo=""
            do while (drquery.Read)
                testo += drquery("SerialNumber").tostring + chr(9) + drquery("DataInizio").ToString + chr(9) + drquery("DataFine").ToString
            Loop
            drquery.Close
            con.close