'assegno variabili server
MSLocation = Label4.text
MSUsername = Label5.Text
MSPassword = Label6.Text
' connetto al server
MSSQL.Initialize(Me,"MSSQL","net.sourceforge.jtds.jdbc.Driver", $"jdbc:jtds:sqlserver://${MSLocation}/DB"$, MSUsername, MSPassword)
ListView1.Clear
Wait For MSSQL_Ready(Success As Boolean)
If Success Then
Dim RS As SD_ResultSet = MSSQL.ExecQuery("SELECT * FROM OPERATORI")
ListView1.Color=Colors.Green
Do While RS.NextRow
ListView1.AddSingleLine(RS.GetString2(2))
Loop
End If