................
        ...............
        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.Text
        prm = New OleDbParameter
        prm.Direction = Data.ParameterDirection.Input
        '//--> parametro di tipo Date
        prm.DbType = Data.DbType.Date
        appdataInizio = "01/12/2005"
        appdataFine = "31/12/2005"
        prm.Value = Convert.ToDateTime(appdataInizio)
        cmd.Parameters.Add(prm)
        prm = New OleDbParameter
        prm.Direction = Data.ParameterDirection.Input
        '//--> parametro di tipo Date
        prm.DbType = Data.DbType.Date
        prm.Value = Convert.ToDateTime(appdataFine)
        cmd.Parameters.Add(prm)
        cmd.Connection = con

        con.open()
        drQuery = cmd.ExecuteReader()

        testo = ""
        Do While (drQuery.Read)
            testo += ControlChars.CrLf + drQuery("SerialNumber").ToString + Chr(9) + drQuery("DataInizio").ToString + Chr(9) + drQuery("DataFine").ToString
        Loop
        Me.TextBox1.Text = testo
        drQuery.Close()
        con.close()