主题：这样算不算域名及1433端口设置成功

不明白啥意思。局域网内用服务器IP地址连接数据库服务器。网外使用动态域名测度连接服务器。楼主试试

其实局域网内也可用动态域名的，我这连接没有问题。

啊，你服务器也要登陆系统操作吗？一般不会在服务器操作吧。但有一种方式可以解决。

BeforeOpenProject

Dim s As String = FileSys.GetParentPath(e.File) & "\ip.txt"
If FileSys.FileExists(s) = False Then
    e.Cancel = True
    MessageBox.show("文件丢失,无法打开此项目!请与管理员联系!!")
Else
Dim ip As String = FileSys.ReadAllText(s)
Dim Str1 As String = "Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=baox;Data Source=" & ip 
Dim Conn As New Data.Oledb.OledbConnection(Str1)
Try
    Conn.Open()
    Conn.Close()
Catch ex As Exception
    Messagebox.show("连接服务器失败!请与管理联系!!!")
End Try
End If

Ip.txt只是域名或IP地址。（这样可以随意更改连接服务器的方式，不需要修改程序）

BeforeOpenProject:

dim b1 as boolean

Dim s1 As String = FileSys.GetParentPath(e.File) & "\ip1.txt"
If FileSys.FileExists(s1) = False Then

    b1 = false
Else

    b1 = true
    Dim ip As String = FileSys.ReadAllText(s1)
    Dim Str1 As String = "Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=baox;Data     Source=" & ip 
   Dim Conn As New Data.Oledb.OledbConnection(Str1)
   Try
       Conn.Open()
       Conn.Close()
   Catch ex As Exception          

                      Messagebox.show("连接服务器失败!请与管理联系!!!")
              End Try
    End If

 End Try

以上代码没有测试，思路是这样，楼主试试。（临时写的代码，不知是否有错）