Dim ConnString As String = "Data Source=192.168.190.128,1135;Network Library=DBMSSOCN;Initial Catalog=test;User ID=sa;Password=pippo;"
    Dim sqlcon As New SqlConnection(ConnString)
    Dim tr As SqlClient.SqlTransaction
    Dim cm As SqlClient.SqlCommand