棘手的问题,我的第个问题.(在线等!!!!!!!!!!!!)

VB+SQL
   我现在现场调试呢,原来写的时间用到了ADODC,ADODC.Connection在文件CONFIG.INI里面写的.我在我的机器上运行正常,别的机器也可以访问我的机器.但是我把SQL安装到别的机器,然后修改CONFIG.INI的内容,如果是用到ADODC的地方都访问不到,(数据库无法访问).我把代码写到下面,大哥门帮我看看,明天早晨就要给客户安装了.模块的:Public AppConfig As Config
Public CurrentLoginUserId As Integer
Public CurrentLoginUserName As String
Public CurrentLoginUserDept As String
Public CurrentLoginId As IntegerPublic FactoryId As Integer
Public FactoryDM As String
Public FactoryName As String
Public FactoryWSH As StringSub Main()
Set AppConfig = New Config
AppConfig.parse App.Path + "\config.ini"Dim rs As Recordset
Set rs = FindBySQL("select * from FACTORY_INFO")
If rs.BOF And rs.EOF Then
    FactoryId = -1
    FactoryDM = ""
    FactoryName = ""
Else
    FactoryId = rs.Fields("fac_id")
    FactoryDM = rs.Fields("fac_gcdm")
    FactoryName = rs.Fields("fac_gcmc")
    FactoryWSH = rs.Fields("fac_wsh")
End If
rs.Close
FrmLogin.Show vbModal
End Sub
Function FindBySQL(sSQL As String) As Recordset
Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open AppConfig.ConnectionString
    
Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandText = sSQL
    cmd.CommandType = adCmdText    Set FindBySQL = cmd.Execute
End FunctionFunction UpdateBySQL(sSQL As String)
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open AppConfig.ConnectionStringDim cmd As ADODB.Command
Set cmd = New ADODB.Commandcmd.ActiveConnection = conn
cmd.CommandText = sSQL
cmd.CommandType = adCmdText
cmd.ExecuteEnd Function
Function OpenTableForUpdate(tablename As String) As Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open AppConfig.ConnectionStringDim cmd As ADODB.Command
Set cmd = New ADODB.Commandcmd.ActiveConnection = conn
cmd.CommandText = tablename
cmd.CommandType = adCmdTable
Dim rs As Recordset
Set rs = New ADODB.Recordset
rs.Open cmd, , adOpenStatic, adLockOptimistic
Set OpenTableForUpdate = rs
End Function
frm1的:Private Sub Form_Load()
Adodc1.ConnectionString = AppConfig.ConnectionString
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Filter = ""
End SubPrivate Sub Text1_Change()
If Text1.Text = "" Then
Else
    Adodc1.Recordset.Filter = "con_htbh like '%" + Text1.Text + "%'"
End If
End SubPrivate Sub Text2_Change()
If Text2.Text = "" Then
Else
Adodc1.Recordset.Filter = "con_nhmc like '%" + Text2.Text + "%'"
End If
End Sub