Date filter query please help

If CON.State = ConnectionState.Closed Then
            CON.Open()
            DA = New OleDbDataAdapter("SELECT [voucher],[note],[dr],[cr],[da] FROM [ledger] WHERE cust-name=@1 AND da BETWEEN da=@1 AND da=@2", CON)
            DA.SelectCommand.Parameters.AddWithValue("@1", TextBox1.Text)
            DA.SelectCommand.Parameters.AddWithValue("@2", DateTimePicker1.Value.Date)
            DA.SelectCommand.Parameters.AddWithValue("@3", DateTimePicker2.Value.Date)
            Try
                DS = New DataSet
                Panel1.Hide()
                DA.Fill(DS, "ledger")
                DataGridView1.DataSource = DS.Tables("ledger")
            Catch ex As Exception
                MsgBox(ex.Message)
                Panel1.Show()
            End Try
        End If
        CON.Close()
        DA.Dispose()