B4J Question MS SQL server 2014 using MS JDBC

#Region  Project Attributes
   #MainFormWidth: 600
   #MainFormHeight: 400
   #AdditionalJar: mssql-jdbc-6.2.2.jre8.jar
#End Region

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
   Dim sqlMS As SQL
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.SetFormStyle("UNIFIED")
   'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
   MainForm.Show
   
   sqlMS.Initialize("com.microsoft.sqlserver.jdbc.SQLServerDriver","jdbc:sqlserver://<server name>:1433;databaseName=<Database name>;user=<user name>;password=<user password>;")
   Log(sqlMS.IsInitialized)
   sqlMS.BeginTransaction
   Try
       Dim rs As ResultSet = sqlMS.ExecQuery("SELECT first_name, last_name FROM user_mstr ORDER BY first_name")
       Do While rs.NextRow
           Log(rs.GetString("first_name") & " " & rs.GetString("last_name"))
       Loop
       sqlMS.Close
       
   sqlMS.TransactionSuccessful
   Catch
       Log(LastException.Message) 'no changes will be made
   End Try
   
End Sub

    sqlMS.Initialize(mdlShared.GetDriverClass,mdlShared.GetJDBC_urs(workingFolder, strConfigFile))
   
   If sqlMS.IsInitialized = True Then
       '-------------------------------------------------------------------------------------------
       Dim sql As String = "select top 1 enterprise_name, enterprise_id from enterprise where delete_ind = 'N' order by enterprise_id"
       Dim SenderFilter As Object = sqlMS.ExecQueryAsync("SQL", sql, Null)
       Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
       If Success Then
           sqlMS.BeginTransaction
               Do While rs.NextRow
                   cboEnt.Value =    rs.GetString("enterprise_name")
                   strDefaultEntName = rs.GetString("enterprise_name")
                   strDefaultEntID = rs.GetString("enterprise_id")
               Loop
               rs.Close
               
           sqlMS.TransactionSuccessful
       Else
           Log(LastException)
           mdlShared.LogErrorToFile("loadSQLEntPrac.1", LastException.Message)
           sqlMS.Rollback
       End If
       '--------------------------------------------------------------------------------------------
       sql = "select enterprise_name, enterprise_id from enterprise where delete_ind = 'N' order by enterprise_id"
       Dim SenderFilter As Object = sqlMS.ExecQueryAsync("SQL", sql, Null)
       Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
       If Success Then
           sqlMS.BeginTransaction
           Do While rs.NextRow
               cboEnt.Items.Add(rs.GetString("enterprise_name"))
           Loop
           rs.Close
               
           sqlMS.TransactionSuccessful
       Else
           Log(LastException)
           mdlShared.LogErrorToFile("loadSQLEntPrac.2", LastException.Message)
           sqlMS.Rollback
       End If
       '--------------------------------------------------------------------------------------------

       sqlMS.Close
   End If

sqlMS.BeginTransaction