Visual Basic - Problema con Select o Recordset..

Hola compañero... tengo el siguiente problemas en ste codigo....

Public BdInventario As Database
Public RsInventario As Recordset
Public RsTemporal As Recordset
'Rutina para Abrir la base de dato
Public Sub AbrirBaseDatos()
Set BdInventario = OpenDatabase("INVENTARIO.mdb")
Set RsInventario = BdInventario.OpenRecordset _
("Select * From CATEGORIAS", "Select * From EMPLEADOS", dbOpenDynaset, dbOptimistic)

End Sub
me marca un error el tema es que necesito habrir o cargar varias tablas
y he intentado de varias formas .... SI me pueden ayudar...muchas gracias....

Hola.
Pues si tienes que abrir varias tablas, tendras que utilizar varios recordsets, ¿no?.
Si las tablas están relacionadas y lo que necesitas son campos de varias de ellas al mismo tiempo, tendras que utilizar una consulta de union, mas elaborada.