Dim metadata As JavaObject = sql.As(JavaObject).GetFieldJO("connection").RunMethod("getMetaData", Null)
Dim rs As ResultSet = metadata.RunMethod("getTablePrivileges", Array(Null, Null, "*.*"))
Do While rs.NextRow
For i = 0 To rs.ColumnCount - 1
Log(rs.GetColumnName(i) & ": " & rs.GetString2(i))
Next
Loop
rs.Close