i have this problem what is problem ?You should check the logs for the full error message.
There are several log viewers in the market which you can use if you don't have direct access to the device.
Dim cursor1 As Cursor
cursor1 = sql1.ExecQuery("SELECT * FROM mench ")
cursor1.Position = 0
Log(cursor1.getString("color"))
P1.Color = cursor1.getString("color")
Dim strColor As String
strColor = Cursor1.getString("color")
P1.Color = ConvertColors(strColor)
Sub ConvertColors(MyColor As String) As Int
MyColor=MyColor.SubString(MyColor.IndexOf(".")+1).ToUpperCase
Select MyColor
Case "BLACK"
' Return -16777216
Return Colors.Black
Case "BLUE"
Return Colors.Blue '-16776961
Case "WHITE"
Return Colors.White
Case "YELLOW"
Return Colors.Yellow '-256
Case "CYAN"
Return Colors.Cyan
Case "RED"
Return Colors.RGB(255,0,0) 'you can use Colors.Red
Case "MAGENTA"
Return Colors.Magenta
End Select
End Sub