Dim db As Database
Dim rs As Recordset
Dim ds As Dataset
Set db = DBEngine.Workspaces( 0 ).OpenDatabase("c:\Program Files\MapInfo\MapX 5.0\data\Mapstats11.mde")
Set rs = db.OpenRecordset("USA")
Set ds = Map1.DataSets.Add(miDataSetDAO, rs)
ds.Themes.Add

Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Const DataSource = "Data Source=c:\Program Files\MapInfo\MapX 5.0\data\Mapstats11.mdb"
Dim RecordSet As New ADODB.RecordSet
Dim Connection As New ADODB.Connection
Dim ds As Dataset
Call Connection.Open(Provider & DataSource)
Call RecordSet.Open("USA", Connection, adOpenDynamic, AdLockOptimistic)
Set ds = Map1.DataSets.Add(miDataSetADO, RecordSet)
ds.Themes.Add
RecordSet.Close
Connection.Close
Set RecordSet = Nothing
Set Connection = Nothing
End Sub