VBA连SQL填服务器名称能连，填服务器IP失败

异木棉我

Sub A1() 'Server=服务器名称，成功； 'Server=服务器IP地址，失败。
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    'conn.ConnectionString = "Provider=SQLOLEDB;Server=103.X.X.X;Database=myDB;Uid=sa;Pwd=X"'填服务器花生壳给的地址103.X.X.X、填127.0.0.1都连不上。
    conn.ConnectionString = "Provider=SQLOLEDB;Server=xxx;Database=myDB;Uid=sa;Pwd=X" '填服务器名称LAPTOP-XXX能连上
   
    conn.Open
    rs.Open "select * from gys", conn

    Sheets("SHEET1").Select
    Cells.ClearContents
    Range("A1").CopyFromRecordset rs

    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
   
    '我的情况：
    '服务器:win10,SQL SERVER 2005，装了花生壳给分配的IP地址103.X.X.X；
    '客户端:win10,excel2019；
    '网络：两台电脑都是通过相同或者不同手机WIFI热点上网。
    '
    '在SQL SERVER CONFIGURATION MANAGER,
    'SQL SERVER 配置管理器（本地）中，
    '1 SQL SERVER 2005 服务，SQL SERVER(MSSQLSERVER)、SQL SERVER BROWSER 状态都是正在运行，启动模式都是自动；
    '2 SQL SERVER 网络配置-MSSQLSERVER的协议，shared memory，named pipes，TCP/IP 这三项状态都是已启用，
    '  且TCP/IP属性下，所有IP1-IP14,及IPALL的TCP端口都是1433，“活动”和“已启用”项都“是”，
    '  所有IP地址都是系统自动填的，其中有127.0.0.1，但花生壳给的IP地址没有填在任何一个IP项里。
    '3 在SQL NATIVE CLIENT配置—客户端协议，shared memory，TCP/IP，named pipes 三项状态都“已启用”，
    '   “别名”项，别名填了花生壳给的IP地址，服务器填了127.0.0.1，协议填TCP/IP，参数填1433.
    '
    '在MICROSOFT SQL SERVER MANAGEMENT STUDIO,对象资源管理器，连接：
    '服务器名称：127.0.0.1（或者填服务器名称都能连，填花生壳地址103.X.X.X连不上）
    '身份验证：SQL SERVER 身份验证
    '登录名：sa
    '密码：mima
   
    '在客户端，ping 服务器名称能连，ping 花生壳给的地址103.X.X.X,或127.0.0.1都连上。
    '在客户端，TELNET 服务器名称,或 花生壳给的地址103.X.X.X，或127.0.0.1都失败。
End Sub

我的诉求：填IP地址，实现外网连接能连上操作数据。请大佬赐教，谢谢！