' Try
' Dim path1 As String
' Dim path As String
' path = Application.StartupPath
' path1 = path + "\1.txt"
' Dim inif As New System.IO.FileInfo(path1)
' If Not inif.Exists Then
' If MessageBox.Show("系统未检测到服务器名称，要设置服务器吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
' Dim f2 As New strar
' f2.Show()
' Else
' MsgBox("未设置数据库理解！系统将自动退出！")
' Exit Function
' End If
' Else
' Try
' Dim file As New System.IO.StreamReader("1.txt")
' Dim word As String = file.ReadLine
' conn = word

' conStr.ConnectionString = ("data source='" & conn & "';database=zyjxc;integrated security=true;")
' cn.ConnectionString = ("data source='" & conn & "';database=master;integrated security=true;")
' file.Close()
Dim f1 As New Form1
f1.Show()

' Catch ex As Exception
' MsgBox(ex.ToString)
' End Try

' End If

' Catch ex As Exception
' MsgBox(ex.ToString)
' End Try