ve gene do while döngüsü içerisine bir koşul yazıp o koşula uygun olanların listelenmemesini istiyorum

çekilen veriler listbox ta listeleniyor

fakat veritabanındaki veriyi koşulu göz ardı ederek her sekilde listbox a döküyor.

amacım button a tıklanınca ödeme günü gelenleri listboxa  listelemesi  ama listelerken  de ödeme durumunu kontrol edip ona göre listelemesi

bir türlü koşulu sağlayamadım basit bir sorun ama takıldım işte. yardım ederseniz minnettar kalırım. kodlarım aşağıda

 'kod başlar

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

       Dim zaman As Date

        Dim cmd1 As New SqlClient.SqlCommand

        Dim conn1 As New SqlClient.SqlConnection     

ListBox2.Items.Clear()
       
        conn1.ConnectionString = "Data Source=.\SQLExpress;Integrated Security=true; AttachDbFilename=|DataDirectory|\mydb.mdf;User Instance=true;"
        zaman1 = Date.Today
        cmd1.Connection = conn1
        cmd1.CommandText = "select * from domain where bitist='" & zaman1 & "'"
        Dim rdr1 As SqlClient.SqlDataReader
        conn1.Open()
        rdr1 = cmd1.ExecuteReader
        Dim asd As String
        asd = True

        Do While rdr1.Read
            If Not rdr1("odeme") = (asd) Then
                ListBox2.Items.Add(rdr1("domain"))

            Else
                ListBox2.Items.Add("veri yok")

            End If
        Loop

        rdr1.Close()
        conn1.Close()
    End Sub

'kod biter