Dim sPath As String
Dim rpt As rprRelAreas
Me.MousePointer = 11
sPath = App.path & "Bdimobiliaria.MDB"
sSql = "select * from Tbl_Areas where Codigo_AR =" & Me.txtcodAR
Set RST.ActiveConnection = cnBd
RST.CursorLocation = adUseClient
RST.Open sSql, , adOpenStatic, adLockBatchOptimistic
RST.ActiveConnection = Nothing
Set rpt = New rprRelAreas
rpt.DataControl1.Recordset = RST
rpt.Show 1
Set rpt = Nothing