Sub MyExport()
	Dim db As DAO.Database, rst As DAO.Recordset
	Dim strObjName As String, strObjType As String
	Dim intObjTypeConst As Integer
	Dim varData As Variant, intI As Integer

	'Open the table
	Set db = CurrentDb()
	Set rst = db.OpenRecordset("tblMyCustomObjects")

	'Loop through table
	Do Until rst.EOF
		strObjName = rst![objectName]
		strObjType = rst![objectType]
		If Ucase(strObjType) = "REPORT" Then
			intObjTypeConst = acReport
		ElseIf Ucase(strObjType) = "FORM" Then
			intObjTypeConst = acForm
		ElseIf Ucase(strObjType) = "QUERY" Then
			intObjTypeConst = acQuery
		ElseIf Ucase(strObjType) = "MODULE" Then
			intObjTypeConst = acModule
		End If 
		DoCmd.TransferDatabase acExport, "Microsoft Access", _
			"C:\My Documents\FrontEndLatestRelease.mdb", intObjTypeConst, _
			strObjName, strObjName
		rst.MoveNext
	Loop
End Sub