这个程序为何还会死掉

这个程序为什么还会死掉?
Imports   System.Data
Imports   System.Data.SqlClient
Public   Class   Form1

        Private   Sub   Button1_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button1.Click
                Try
                        Dim   SqlConn   As   New   SqlClient.SqlConnection
                        Dim   SqConnectStr   =   "server=local;user   id=sa;pwd=amdlive;database=sql1 "
                        SqlConn.ConnectionString   =   SqConnectStr
                        SqlConn.Open()
                        Label1.Text   =   "lianjie   OK "
                Catch
                        Label1.Text   =   "lianjie   no "
                End   Try
        End   Sub
End   Class

按确定以后程序依然死掉.并且连接不上sql

------解决方案--------------------
连接语句错了 还要注意连接的方式 是 OLEDB 还是ADO 方式不同连接语句有点区别
我用的语句你参考下嘛
workstation id=75BS1DWTA2FALXS;packet size=4096;user id=sa;initial catalog=book;persist security info=True;password=sa
------解决方案--------------------
dim con as new sqlconnection
con.connectionstring= "server=计算机名称;database=数据库名称;uid=用户名；pwd=密码； "
分号要有。在要是不行的话就是系统或者计算机有问题了。哈哈
------解决方案--------------------
Imports System.Data
Imports System.Data.SqlClient

button_click

dim con as new sqlconnection
con.connectionstring= "data source=(local);initial catalog=库名;user id=sa;password=ss "
con.open
这样写在看看
我都是这样写的没问题