Access2Base - RecordSource property of SubForm class

Use Command property i.o. ActiveCommand
because Command is additionally valid when form opened in Design mode

Change-Id: I0c9e545419ec99d444ac15b20466c838d53f738f

wizards/source/access2base/SubForm.xba

@@ -123,6 +123,11 @@ Public Function pName() As String		'	For compatibility with < V0.9.0
 	pName = _PropertyGet("Name")
 End Function	'	pName (get)
 
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet("ObjectType")
+End Property		'	ObjectType (get)
+
 REM -----------------------------------------------------------------------------------------------------------------------
 Property Get OnApproveCursorMove() As Variant
 	OnApproveCursorMove = _PropertyGet("OnApproveCursorMove")
@@ -258,11 +263,6 @@ Property Let OnUnloading(ByVal pvValue As Variant)
 	Call _PropertySet("OnUnloading", pvValue)
 End Property	'	OnUnloading (set)
 
-REM -----------------------------------------------------------------------------------------------------------------------
-Property Get ObjectType() As String
-	ObjectType = _PropertyGet("ObjectType")
-End Property		'	ObjectType (get)
-
 REM -----------------------------------------------------------------------------------------------------------------------
 Public Function OptionGroup(ByVal Optional pvGroupName As Variant) As Variant
 '	Return either an error or an object of type OPTIONGROUP based on its name
@@ -642,7 +642,7 @@ Dim oDatabase As Object, vBookmark As Variant, oObject As Object
 			End With
 			Set _PropertyGet = oObject
 		Case UCase("RecordSource")
-			_PropertyGet = DatabaseForm.ActiveCommand
+			_PropertyGet = DatabaseForm.Command
 		Case Else
 			Goto Trace_Error
 	End Select