程序中模块的定义sql server连接信息如下
Public Const conn As String = "Provider=SQLOLEDB.1;Password=Sa;User ID=sa;Initial Catalog=Student;Data Source=192.168.0.1;"
如果把servername dbtable userid pwd 存放在一个ini文件中，读取后如何把这些值付给上面的表达式？

如果在窗体中用Textbox读取信息后进行付值就可以，但在模块中无法实现，窗体中代码如下：
Conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + txtUserId.Text + ";Password=" + txtPwd.Text + ";Initial Catalog=" + txtDataBase.Text + ";Data Source=" + txtServerName.Text + ";"

请各位大侠帮帮忙，谢谢！

看看下面的代码,或许对你有帮助


qq = Dir(App.Path + "\sn.inf", vbNormal)
If qq <> "" Then
Open App.Path + "\sn.inf" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, sn ' 读入一行数据并将其赋予某变量。
'tt_read.Text = content
'Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Loop
Close #1 ' 关闭文件。
'tt_read.Text = content
If sn = numsn Then
Unload fm_sn
fm_jisuan.Visible = True
'MsgBox a
End If
End If

谢谢楼上的回复，可能我在上面说得不是很清楚，下面我把在窗体中能实现的代码帖上来，但现在我是想在模块中实现同样的功能，初始化数据库连接。

Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Public Conn As New ADODB.Connection

Private Sub Cmd_OK_Click()
Dim success As Long
success = WritePrivateProfileString("Student", "ServerName", txtServerName.Text, App.Path + "\Account.ini")
'参数一、 Section Name 参数二、於.ini中的项目 参数三、项目的内容 参数四 .ini文件的名称
success = WritePrivateProfileString("Student", "DataBase", txtDataBase.Text, App.Path + "\Account.ini")
success = WritePrivateProfileString("Student", "DBLogon", txtDBLogon.Text, App.Path + "\Account.ini")
success = WritePrivateProfileString("Student", "LogonPass", txtLogonPass.Text, App.Path + "\Account.ini")
End Sub

Private Sub Cmd_Cancel_Click()
Call form_load
End Sub

Private Sub Cmd_Exit_Click()
End
End Sub

Private Sub Cmd_Test_Click()
On Error GoTo ErrorDB
Dim strConn As String
Set Conn = New ADODB.Connection
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + txtDBLogon.Text + ";Password=" + txtLogonPass.Text + ";Initial Catalog=" + txtDataBase.Text + ";Data Source=" + txtServerName.Text + ";"
Conn.Open strConn

If Conn.State <> adStateOpen Then
MsgBox "数据库连接失败"
End
Else
MsgBox "数据库连接成功", vbOKOnly, "提示"
End If
Conn.Close
Set Conn = Nothing
Exit Sub

ErrorDB:
If Conn.State = adStateOpen Then Conn.Close
If Not IsNull(Conn) Then Set Conn = Nothing
MsgBox "数据库连接失败", vbOKOnly, "提示"

End Sub

Private Sub form_load()
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("Student", "ServerName", ".", buff, 256, App.Path + "\Account.ini")
'若.ini Student中无ServerName，则采用参数三的值
txtServerName.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Student", "DataBase", "Student", buff, 256, App.Path + "\Account.ini")
txtDataBase.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Student", "DBLogon", "Sa", buff, 256, App.Path + "\Account.ini")
txtDBLogon.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Student", "LogonPass", " ", buff, 256, App.Path + "\Account.ini")
txtLogonPass.Text = buff
End Sub


Account.ini文件内容
[Student]
ServerName=192.168.0.1
DataBase=Student
DBLogon=Sa
LogonPass=Sa

[此贴子已经被作者于2006-9-12 15:33:41编辑过]

在模块中做?
这个我不太清楚

可以在类模块中定义成函数
然后在窗体加载的时候调用
不知道这样能不能实现这样的功能

定义成函数
Dim DBUser As String
...
DBUser = ...
Debug.Print DBUser
...
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=Sa;Initial Catalog=Student;Data Source=192.168.0.1"
Conn.Open strConn

上面代码中立即窗口显示的值是正确的
但实际是连接不上！晕死！
不能这样表示？？User ID=" & DBUser & "
如果直接定上User ID=Sa就可以了