Dim sSQL as String
If Me![LEFTONE] = "<All>" Then
sSQL = "Select[SALESPERSON],[Model],[CustomerName],[CHASSISNUMBER] From [tbl_Vehicles]"
Else
sSQL = "Select[SALESPERSON].[Column](1),[Model],[CustomerName],[ChassisNumber]From [Tbl_Salesperson].[SalespersonID= " & Me![LEFTONE] & ""
End If
Debug.Print sSQL
Me![RIGHTONE].RowSource=sSQL