SQLServer.Connect 用其他方法实现？

*****************************************************************************************************
Option Explicit On
'Option Strict On
'//***************************************************************************************************
Imports System.Data.SqlClient

'//***************************************************************************************************
'//Begin defined namespace
Namespace Sunerp.CommClass.Comm

'//Defined Structure PublicApplicationVal
'//Structure descriptoin
'//本结构存取 数据库服务器名（Dbserver）、数据库用户ID（UserId）、
'//数据库用户密码（UserPWD）、数据库名（Dbase），为联接数据库提供参数。
'//为了满足某些简单查询的需要，提供了扩展的变量 常用表名（DBTable）、
'//查询字段名（QueryFieldName）、查询字段值

'//Begin define Structure PublicApplicationVal
Public Structure PublicApplicationVal
' Public Dbserver, UserId UserPWD Dbase DBTable Account.