อยากทราบวิธีแปลงข้อความจากฐานข้อมูลครับ โดยกำหนดตายตัวเลยครับ

If reader.HasRows Then
	Do While reader.Read

        	With reader

               		If .GetBoolean(1) = True Then
                            Textbox1.text = "Passed"
                        Else
                            Textbox1.text = "False"
                        End If
                        
                End With

          Loop
End If

If reader.HasRows Then
	While reader.Read
        	With reader
               		If .Item("ColumnsName") = "-1" Then
                            Textbox1.text = "Failed"
                        Elseif .Item("ColumnsName") = "0" Then
                            Textbox1.text = "Passed"
                        End If
                End With
End If