为什么我在98下打包的程序在别的机子上的机子运行老说数据库环境出错？！！

[rubii]

以下是我连接SQLSever的代码！请各位看看为什么打包后在其他机子上说数据库环境错误？！！

On Error GoTo SQLConErr
Set cn = New ADODB.Connection
With cn
'.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = "211.162.117.42"
.Properties("Initial Catalog").Value = "kingcharm"
.Properties("User ID") = "yaoyao"
.Properties("Password") = "123456"
.ConnectionTimeout = 5
.Open
If .State <>adStateOpen Then
MsgBox "数据库连接失败，请找系统管理员进行检查 ！",_ 16,cProgramName
skin MFrmMain
MFrmMain.mnuUserChang = False
MFrmMain.mnuHelpProduct = False
MFrmMain.Show
Exit Sub
End If
Skin1.ApplySkin FrmLogin.hwnd
FrmLogin.Show

End With
Exit Sub

SQLConErr:
Select Case Err.Number
Case -2147467259
'MsgBox "找不到指定的SQL Server服务器或者数据库不存在，请重新设置！", vbExclamation
MsgBox "找不到指定的SQL Server服务器或者数据库不存在!", vbCritical, "系统提示"
MFrmMain.mnuUserChang = False
MFrmMain.mnuHelpProduct = False
skin MFrmMain
MFrmMain.Show
Exit Sub
Case -2147217843
'MsgBox "指定的SQL Server数据库用户不存在或口令错误，请重新设置！", vbExclamation
MsgBox "指定的SQL Server数据库用户不存在或口令错误!", vbCritical, "系统提示"
MFrmMain.mnuUserChang = False
MFrmMain.mnuHelpProduct = False
skin MFrmMain
MFrmMain.Show
Exit Sub
Case Else
MsgBox "数据环境连接失败，请找系统管理员进行检查!", 16, cProgramName
MFrmMain.mnuUserChang = False
MFrmMain.mnuHelpProduct = False
skin MFrmMain
MFrmMain.Show
Exit Sub
End Select

[pengnick]

安装一下MDAC2.5（以上版本）。

[三楼の郎]

安装相应版本的MDAC。