丢失 Microsoft ActiveX Data Objects 2.5 library

Question

1、我在win2000下写了一个远程访问数据库的程序，Dim rslog As New ADODB.Recordset，在工具条的“工程/引用”中选择了Microsoft ActiveX Data Objects 2.5 library这里用到了msado25.tlb文件，但是我在98下就没法引用而且也找不到。
2、我写的程序只能在2000和XP下使用，在98下没法使用，运行后报错：“运行时错误‘430’类不支持自动化或不支持期望的接口”
我想不能在98下使用会不会和msado25.tlb有关呢？
 请各位高手指教
部分源码如下：
Option Explicit
Dim rslog As New ADODB.RecordsetConst urlLogin = "http://www.51yueqin.com/zzz/login/" Private Sub Command1_Click()
Set rslog = Nothingrslog.Open urlLogin & "login.asp"在98下运行一到这就报错了
End Sub

Answer 1

建议在98下开发打包
建议安装mdac

Answer 2

我现在安装了mdac_typ_2.6_cn.exe,可以连接数据库了，但是我以前设制的timer控件的时间间隔好像不以毫秒为单位了，变慢了！而且我写的sndPlaySound函数也只能发出一种声音了。请高手指教！！！在win2000都是正常的，如果98下不安装mdac_typ_2.6_cn.exe程序就没法连接数据库！
sndPlaySound函数：
Option ExplicitPublic Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As LongConst SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Private Sub Command1_Click()
Dim sFlags As LongDim SND_ASYNC As LongDim SND_NODEFAULT As LongsFlags = SND_ASYNC Or SND_NODEFAULTsndPlaySound "notify", sFlagsEnd Sub
Private Sub Command2_Click()Dim sFlags As LongDim SND_ASYNC As LongDim SND_NODEFAULT As LongsFlags = SND_ASYNC Or SND_NODEFAULTsndPlaySound "start", sFlagsEnd Sub

Answer 3

你在98下安装一下这个ADO驱动引擎就行了。