pesquisa entre os periodos

boa galera estou tentando fazer meu projeto que ja esta todo pronto so faltando fazer uma pesquisa por periodo abaixo segue o codigo que fiz porem o mesmo esta retornando todos os arquivos do banco

Try

Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "gerencia.mdb;")

Con.Open()

Dim retorno As New List(Of DTOEquipamentos)

Dim reader As OleDb.OleDbDataReader

Dim cmd As New OleDb.OleDbCommand("select * from equip where data BETWEEN #" & consperiodo.Data_Inicial.Text & "# AND #" & consperiodo.Data_Final.Text & "#", Con)

reader = cmd.ExecuteReader

Dim data As DTOEquipamentos

While reader.Read()

data = New DTOEquipamentos

data.area = (reader("area"))

data.data = reader("data")

data.equip = reader("equip")

data.nsap = reader("nsap")

retorno.Add(data)

End While

Con.Close()

reader.Close()

cmd.Dispose()

Localizaperiodo = retorno

Catch ex As Exception

MsgBox(ex.Message)

End Try