Sub FillTableCust
TableView2.Items.Clear
Sql1.Initialize2("com.mysql.jdbc.Driver", "jdbc:mysql://162.215.252.76:3306/himelcoz_diamonds", "himelcoz_testing", "ZXNb^iVIP1_=")
Dim rt As ResultSet = Sql1.ExecQuery("SELECT Name FROM Customer")
Do While rt.NextRow
Dim rowc(2) As Object
rowc(0) = rt.GetString("Name")
Dim Cust As String
Cust = rt.GetString("Name")
Dim NumberOfMatches As Int = Sql1.ExecQuerySingleResult("SELECT count(*) FROM tracking WHERE location ="&Cust)
rowc(1) = NumberOfMatches
TableView2.Items.Add(rowc)
TableView2.SetColumnSortable(0, True)
TableView2.SetColumnWidth(0,250)
TableView2.SetColumnWidth(1,50)
Loop
rt.Close
End Sub