The problem is with this line:
Label1.text = blob()
blob() is an array of bytes. You can't assign it directly as a string.
See this code:
Code:
Sub Globals
dim blob(0) as byte
End Sub
Sub App_Start
con.New1
con.Open("Data Source = " & AppPath & "\igo.db")
cmd.New1("SELECT * FROM WPOILABEL_V1", con.Value)
Reader.New1
reader.Value = cmd.ExecuteReader
Reader.ReadNextRow
blob() = reader.GetBytes(4)
for i = 0 to ArrayLen(blob()) - 1
textBox1.Text = textBox1.Text & blob(i) & ","
next
form1.Show
reader.Close
End Sub
You could use the Bitwise library to convert it to hex values.
I'm not sure what is stored in the BLOB columns and in what format. You will need to check it.