VB中如何定义SQL数据库连接

我这有两个窗体一控制窗体,一显示窗体,我如何获取控制窗体的文本框中数据库路径,userID,PWD,Dbasemane来定义显示窗体的数据库链接?
数据库为SQL2000
我要的是具体定义数据库连接的代码。我现在采用的是：
Dim strServer As String
Dim strUID As String

Dim strPWD As String

Dim strDBName As String

Dim strConString As String
Dim conn As New ADODB.Connection
Set rs = New ADODB.Recordset

strServer = GetPrivateProfileString("数据库设置", "服务器名", "yiyun", buff, 256, App.Path & "\Options.ini")

strUID = GetPrivateProfileString("数据库设置", "用户名", "sa", buff, 256, App.Path & "\Options.ini")

strPWD = GetPrivateProfileString("数据库设置", "密码", "", buff, 256, App.Path & "\Options.ini")

strDBName = GetPrivateProfileString("数据库设置", "数据库名", "test", buff, 256, App.Path & "\Options.ini")

我大概说一下思路

比如：
控制窗体form1中有一个文本框text1，其中存放着数据连接的字符串

在显示窗体form2中定义一个变量str1，
dim str1 as string
str1=form1.text1.text

然后在str1中查找“userid”关键字，在这个关键字后面的并且在其后面的第一个分号前的就是用户名
在str1中查找“pwd”关键字，在这个关键字后面的并且在其后面的第一个分号前的就是密码
其他类似

VB中如何定义SQL数据库连接 vb+sql的数据库连接语句 vb怎样与SQL数据库连接 VB和SQL数据库连接问题 vb中如何定义全局变量 VB 中如何定义扩展名 请问如何将SQL的数据库连接封装到DLL中？ c如何与sql数据库连接? 请教:vb中数据库连接问题 vb中数据库连接的问题