MainForm.Icon = fx.LoadImage(File.DirAssets, "smalldiamond.png")
Sql1.Initialize2("com.mysql.jdbc.Driver", "jdbc:mysql://162.215.252.76:3306/himelcoz_diamonds", "himelcoz_testing", "ZXNb^iVIP1_=")
Dim rs As ResultSet = Sql1.ExecQuery("SELECT barc, location , datetime , SigName, signature FROM movement")
Do While rs.NextRow
Dim msgs As List
msgs.Initialize
msgs.Add(rs.GetString("barc"))
msgs.Add(rs.GetString("location"))
ListView1.Items.Add(rs.GetString("barc") &" "& rs.GetString("location") &" "& rs.GetString("datetime")&" "& rs.GetString("SigName")&" "& rs.GetString("signature"))
' ChoiceBox1.
Loop
rs.Close
End Sub