Code:

 Dim rs2 As New ADODB.Recordset
            sql = "select [roba opis] from roba where [sifra robe] =" & sifrarobe

            rs2.Open(sql, conn)

            If rs2.Fields(0).Value = 1 Then

            Else