cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
            "Data Source=" & Trim(txtServer.Text) & ";Initial Catalog=" & master & _
            ";uid=" & Trim(txtUser.Text) & ";pwd=" & Trim(txtPwd.Text)