那位大侠可以告诉我错在那里

 <B>那位大侠可以告诉我错在那里</B>
代码如下：
Private Sub Command1_Click()
Dim ds As Dataset
Dim db As Database
Dim rs As Recordset

Set db = dbengine.workspaces(0).opendatabase("c:\program files\mapinfo\mapx4.0\data\mapstats.mdb")
Set rs = db.openrecordset("usa")
Set ds = Map1.DataSets.Add(miDataSetDAO, rs)
Map1.DataSets(0).Themes

End Sub

错误信息：
用户定义类型未定义
vb 显示错在Dim db As Database一行

Database这个类型没有定义，好象你应该先定义数据库的连接吧

<P>你的工程文件中，没有引用DAO对象！</P>