Private Sub tabMain_Change()
	If tabMain = 1 Then
	'Second page
		Me!sctlOrders.Form.RecordSource = "SELECT * from tblOrders " & _
			"WHERE customerId = " & Me!cboCustomer
	ElseIf tabMain = 2 Then
	'Third page
		Me!sctlSuppliers.Form.RecordSource = "SELECT * FROM tblSuppliers"
	End If
End Sub