Dim cnnstr As New SqlConnection("server=(local);database=zgm;uid=sa;password=wanghaibo") 
            cnnstr.Open() 
----
Dim cmd As New SqlCommand(CmdStr, cnnstr) 
            cmd.Connection.Open() 
--
连接打开了2次