Code:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        Dim sql As String
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()


        Select Case SifraDokum
            Case 1, 2, 3
                sql = "kupac = True"
            Case 4
                sql = "dobav = True"

            Case Else
                MsgBox("Morate odrediti vrstu dokumenta!", MsgBoxStyle.OkOnly)
                Exit Sub
        End Select

        If TextBox1.Text <> "" Then
            Select Case Len(TextBox1.Text)
                Case 1
                    sql = "SELECT sifra, naziv_dob FROM kupac " _
                       & " WHERE " & sql & " AND naziv_dob Like '" & TextBox1.Text & "%'" _
                       & " ORDER BY naziv_dob"
                Case 2, 3, 4, 5, 6, 7, 8
                    sql = "SELECT sifra, naziv_dob FROM kupac " _
                         & " WHERE " & sql & " AND naziv_dob Like '%" & TextBox1.Text & "%'" _
                        & " ORDER BY naziv_dob"
            End Select
            'rsProdaja.open(sql, cnProdaja, adOpenForwardOnly, adLockReadOnly)

          
            'cnProdaja = New Data.SqlServerCe.SqlCeConnection("Data Source =\Program Files\POCKET_PC\pocket.sdf;")
            Dim naredba As New System.Data.SqlServerCe.SqlCeCommand(sql, cnProdaja)
            'cnProdaja.Open()
            Dim dr4 As System.Data.SqlServerCe.SqlCeDataReader = naredba.ExecuteReader
            'Dim dr4 As System.Data.SqlServerCe.SqlCeDataReader
            If dr4.Read <> 0 Then
                'Do While dr4.Read

                Do While dr4.Read
                    ListBox2.Items.Add(dr4("naziv_dob").ToString)
                    ListBox1.Items.Add(dr4("sifra").ToString)
                    'rsProdaja.movenext()

                Loop
            End If
            dr4.Close()
        End If
        TextBox1.Text = ""
    End Sub
Bolded is problem,when I start program and when i put brakepoint
Do While dr4.Read
program just keep running in
Code:
Do While dr4.Read
listBox2.Items.Add(dr4("naziv_dob").ToString)
ListBox1.Items.Add(dr4("sifra").ToString)
 'rsProdaja.movenext()
and never to get to End if.
I database I have only one naziv_dob and one sifra .Where is problem here?