Android Question why not firing SQL Ready function?

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
    #AdditionalJar: jtds-1.3.1.jar
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
'#AdditionalJar: mysql-connector-java-5.1.34-bin
#BridgeLogger: true
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private ProgressBar1 As ProgressBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")

End Sub

Sub Activity_Click
    ProgressBar1.Visible = True
    Wait For (CallSub(Starter, "ListAnimals")) Complete (Result As Boolean)
    Log("Completed. Success: " & Result)
    ProgressBar1.Visible = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

#Region  Service Attributes 
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    Public MSSQL As JdbcSQL
    Private driver As String = "net.sourceforge.jtds.jdbc.Driver"
    Private jdbcUrl As String = "jdbc:jtds:sqlserver://192.168.1.21:1433/DemirHaber"
    Private Username As String = "UserName"
    Private Password As String = "Password"
End Sub

Sub Service_Create
    'need to disable it as reading from large JdbcResultSet will cause network requests to be sent on the main thread.
    DisableStrictMode
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub DisableStrictMode
    Dim jo As JavaObject
    jo.InitializeStatic("android.os.Build.VERSION")
    If jo.GetField("SDK_INT") > 9 Then
        Dim policy As JavaObject
        policy = policy.InitializeNewInstance("android.os.StrictMode.ThreadPolicy.Builder", Null)
        policy = policy.RunMethodJO("permitAll", Null).RunMethodJO("build", Null)
        Dim sm As JavaObject
        sm.InitializeStatic("android.os.StrictMode").RunMethod("setThreadPolicy", Array(policy))
    End If
End Sub

Sub Connect As ResumableSub
    MSSQL.InitializeAsync("MSSQL", driver, jdbcUrl, Username, Password)
    Wait For MSSQL_Ready (Success As Boolean)
    If Success = False Then
        Log("Check unfiltered logs for JDBC errors.")
    End If
    Return Success
End Sub

Sub CloseConnection
     MSSQL.Close
End Sub

Sub ListAnimals As ResumableSub
    Wait For (Connect) Complete (Success As Boolean)
    If Success Then
        Try
            Dim sf As Object = MSSQL.ExecQueryAsync("MSSQL", "SELECT id FROM Insaat_Demiri", Array(300))
            Wait For (sf) MSSQL_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
            If Success Then
                Do While Crsr.NextRow
                    Log($"Id: ${Crsr.GetInt("id")}, Name: ${Crsr.GetString("name")}"$)
                Loop
                Crsr.Close
            End If
        Catch
            Success = False
            Log(LastException)
        End Try
        CloseConnection
    End If
    Return Success
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy

End Sub

SQL.InitializeAsync("SQL","net.sourceforge.jtds.jdbc.Driver", $"jdbc:jtds:sqlserver://${DBLocation}/DemirHaber"$, DBUsername, DBPassword)
Wait For SQL_Ready (Success As Boolean)
Log(Success)
If Success Then
Dim rs As JdbcResultSet = SQL.execquery("select table_name from information_schema.tables")
    Do While rs.nextrow
        Log(rs.getstring2(0))
    Loop
    rs.close
    SQL.Close
End If

#Region  Project Attributes 
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
    #AdditionalJar: jtds-1.3.1.jar
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

'#BridgeLogger: True

Sub Process_Globals
    Public ActionBarHomeClicked As Boolean
    Public SQL As JdbcSQL

#Region Database Location
    Private DBLocation As String = "192.168.1.21:1433" 'Can use IP address or domain name
    Private DBUsername As String = "UserName"
    Private DBPassword As String = "Password"
#End Region
End Sub

Public Sub SQLConnect
    SQL.InitializeAsync("SQL","net.sourceforge.jtds.jdbc.Driver", $"jdbc:jtds:sqlserver://${DBLocation}/DemirHaber"$, DBUsername, DBPassword)
    Wait For SQL_Ready (Success As Boolean)
    Log(Success)
    If Success Then
        Dim rs As JdbcResultSet = SQL.execquery("select table_name from information_schema.tables")
        Do While rs.nextrow
            Log(rs.getstring2(0))
        Loop
        rs.close
        SQL.Close
    End If
End Sub

Sub SQL_Ready (Success As Boolean)
    Log(Success)
    If Success = False Then
        Log(LastException)
        Return
    End If
    Dim rs As JdbcResultSet = SQL.execquery("select table_name from information_schema.tables")
    Do While rs.nextrow
        Log(rs.getstring2(0))
    Loop
    rs.close
End Sub

Sub Globals

    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    Dim pm As B4XPagesManager
    pm.Initialize(Activity)
    Activity.LoadLayout("MainPage")
End Sub

'Template version: B4A-1.01
#Region Delegates

Sub Activity_ActionBarHomeClick
    ActionBarHomeClicked = True
    B4XPages.Delegate.Activity_ActionBarHomeClick
    ActionBarHomeClicked = False
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
End Sub

Sub Activity_Resume
    B4XPages.Delegate.Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    B4XPages.Delegate.Activity_Pause
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    B4XPages.Delegate.Activity_PermissionResult(Permission, Result)
End Sub

Sub Create_Menu (Menu As Object)
    B4XPages.Delegate.Create_Menu(Menu)
End Sub

#if Java
public boolean _onCreateOptionsMenu(android.view.Menu menu) {
     processBA.raiseEvent(null, "create_menu", menu);
     return true;
    
}
#End If
#End Region

'Program code should go into B4XMainPage and other pages.

Private Sub Button1_Click
    'MsgboxAsync("Hello world!", "B4X")
    SQLConnect
End Sub

    Private DBLocation As String = "LAPTOP-URFS4BPE" '<====== If i use this then fired but not success connection
    'I have (UnknownHostException) java.net.UnknownHostException: Host is unresolved: LAPTOP-URFS4BPE error.
    'But in B4J project same code getting success connection
 

    Private DBLocation As String = "192.168.1.21:1433"  '<====== If I use this not firing and not any error message
   'But in B4J project same code getting success connection too

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Public SQL As JdbcSQL
#Region Database Location
    Private DBLocation As String = "LAPTOP-URFS4BPE" '<====== If i use this then fired but not success connection
    'I have (UnknownHostException) java.net.UnknownHostException: Host is unresolved: LAPTOP-URFS4BPE error.
    'But in B4J project same code getting success connection
 
    'Private DBLocation As String = "192.168.1.21:1433" '<====== If I use this not firing and not any error message
    'But in B4J project same code getting success connection too

    Private DBUsername As String = "UserName"
    Private DBPassword As String = "Password"
#End Region
    Private Button1 As Button
End Sub

Public Sub SQLConnect
    SQL.InitializeAsync("SQL","net.sourceforge.jtds.jdbc.Driver", $"jdbc:jtds:sqlserver://${DBLocation}/DemirHaber"$, DBUsername, DBPassword)

'    wait for jSQL_Ready (success As Boolean)
'    Log(success)
'    If success Then
'        Dim rs As JdbcResultSet = jSQL.execquery("select table_name from information_schema.tables")
'        Do While rs.nextrow
'            Log(rs.getstring2(0))
'        Loop
'        rs.close
'        jSQL.close
'    End If
End Sub
 
 
Sub SQL_Ready (Success As Boolean)
    Log(Success)
    If Success = False Then
        Log(LastException)
        Return
    End If
    Dim rs As JdbcResultSet =  SQL.execquery("select table_name from information_schema.tables")
    Do While rs.nextrow
        Log(rs.getstring2(0))
    Loop
    rs.close
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub Button1_Click
    'Qxui.MsgboxAsync("Hello world!", "B4X")
    SQLConnect
End Sub