Dim con As OleDbConnection = New OleDbConnection( _
                        "Provider=Microsoft.jet.oledb.4.0;data source=C:\Учет трудоемкости\sql.mdb")
        con.Open()
        Dim cmdText As String = "SELECT * FROM Подтемы WHERE Дата BETWEEN ? AND ? ORDER BY Дата"
        Dim cmd As OleDbCommand = New OleDbCommand(cmdText, con)
        cmd.CommandType = CommandType.Text 
        With cmd.Parameters
            .Add("@d_beg", OleDbType.Date).Value = DateTimePicker1.Value
            .Add("@d_end", OleDbType.Date).Value = DateTimePicker2.Value
        End With
        Dim reader As OleDbDataReader = cmd.ExecuteReader()
        While reader.Read()
            Console.WriteLine("--")
        End While
        reader.Close()
        con.Close()
        con = Nothing