看一下下面的程序如何连不上数据库呀！

看一下下面的程序怎么连不上数据库呀！！！！！！！
怎么解决这个问题呀！！！！    
 
Public     Class     Form1    
 
              Private     Sub     Button1_Click(ByVal     sender     As     System.Object,     ByVal     e     As     System.EventArgs)     Handles     Button1.Click    
                              Dim     conn     As     New     System.Data.SqlClient.SqlConnection    
                              conn.ConnectionString     =     "server=local;database=users;uid=;pwd= "    
                              Dim     comm     As     New     System.Data.SqlClient.SqlCommand    
                              comm.Connection     =     conn    
                              comm.CommandText     =     "gettables "    
                              comm.CommandType     =     CommandType.StoredProcedure    
 
                              Dim     da     As     New     System.Data.SqlClient.SqlDataAdapter    
                              da.SelectCommand     =     comm    
                              Dim     ds     As     New     DataSet    
                              da.Fill(ds)    
                              Me.DataGridView1.DataSource     =     ds.Tables(0)    
 
              End     Sub    
End     Class    
 
运行时总是提示：    
 
在建立与服务器的连接时出错。在连接到     SQL     Server     2005     时，在默认的设置下     SQL     Server     不允许进行远程连接可能会导致此失败。     (provider:     命名管道提供程序,     error:     40     -     无法打开到     SQL     Server     的连接)

[解决办法]
SQL Server configuration Manager -- SQL Server 2005网络配置 -- SQLEXPRESS的协议 -- TCP/IP -- IP地址 动态端口一律 1433