vb中怎么自动获得本地SQL的服务器名和密码

vb中如何自动获得本地SQL的服务器名和密码
最近做的一个VB课程设计，用的是SQL数据库，并且代码中的SQL服务器名和密码都是我自己的，要交作业，我怕到老师机子上调试的时候出错，请问在我的代码中怎么写就可以获得别的机子上的SQL服务器名和登录密码？
这是我的数据库连接代码  
Dim   conn   As   New   ADODB.Connection
Dim   rs   As   New   ADODB.Recordset
Dim   strconn   As   String
Dim   sql   As   String
strconn   =   "provider=SQLOLEDB.1;server=GL-PC;persist   security   info=false;UID=sa;pwd=415024522;database=Drug "
conn.Open   strconn
conn.CommandTimeout   =   20

[解决办法]
将数据库连接字符串的用户与密码换上变量
登录时用全局变量纪录下用户与密码即可
[解决办法]
使用脚本在老师机器上的drug数据库中新建一个sql帐户和密码(老师的机器应该包含Drug这个数据库吧)。

然后你的数据库连接中，就使用这个你新建的帐号和密码，看看是否可以。