dim testo as String
            dim appdataInizio as String, appdataFine as String
            dim dataInizio, dataFine
            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 > ?)")
            cmd.CommandType=Data.CommandType.StoredProcedure
            prm = new OleDbParameter
            prm.Direction = Data.ParameterDirection.Input
            prm.DbType = Data.DbType.Date
            appdatainizio="01/12/2005"
            appdatafine="31/12/2005"
            datainizio=convert.ToDateTime(appdatainizio)
            datafine=convert.ToDateTime(appdatafine)
            prm.Value=datainizio
            cmd.Parameters.Add(prm)
            prm=new OleDbParameter
            prm.Direction = Data.ParameterDirection.Input
            prm.DbType = Data.DbType.Date
            prm.Value=datafine
            cmd.Parameters.Add(prm)
            cmd.Connection=con
            con.open
'qui mi da 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