On Error Resume Next

Dim sData

If Err.Number = 0 Then
	'Create File with Property Values from BAMViewer
	Set fso = CreateObject("Scripting.FileSystemObject")
	sData = "C:\Program Files\Benefits Reporting Package\"
	If fso.FileExists(sData & "BAMViewer.mde") Then 
		Dim rs, sSQL, sConn, i, j, fso, oFile, sRecInfo
		sSQL = "SELECT * FROM tblPreference"
		sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sData & "BAMViewer.mde;Persist Security Info=False"
		Set rs = CreateObject("ADODB.Recordset")
		rs.Open sSQL, sConn
		
		If Not rs.BOF And Not rs.EOF Then
			
			Set oFile = fso.CreateTextFile("c:\Prefs.txt", True)
			oFile.WriteLine("[Preference]")
			For i = 0 to rs.Fields.Count - 1
				sRecInfo = sRecInfo & rs.Fields(i).Name & ","
			Next
			sRecInfo = Mid(sRecInfo,1,Len(sRecInfo)-1)
			oFile.WriteLine("Fields=" & sRecInfo)
			sRecInfo = ""
		End If

		j = 0
		Do While Not rs.EOF
			j = j + 1
			
			For i = 0 To rs.Fields.Count - 1
				If rs.Fields(i).Name = "Version" Then
					sRecInfo = sRecInfo & "3.2.56,"
				Else
					sRecInfo = sRecInfo & Replace(rs.Fields(i).Value,",","~") & ","
				End If
			Next
			sRecInfo = Mid(sRecInfo,1,Len(sRecInfo)-1)
			oFile.WriteLine("Rec" & j & "=" & sRecInfo)		
			sRecInfo = ""
			rs.MoveNext
		Loop

		rs.Close

		sSQL = "SELECT * FROM tblMultiUser"
		rs.Open sSQL, sConn

		If Not rs.BOF And Not rs.EOF Then
			If Not fso.FileExists("C:\Prefs.txt") Then
				'Create File
				Set fso = CreateObject("Scripting.FileSystemObject")
				Set oFile = fso.CreateTextFile("c:\Prefs.txt", True)		
			End If
			oFile.WriteLine("[MultiUser]")
			For i = 0 to rs.Fields.Count - 1
				sRecInfo = sRecInfo & rs.Fields(i).Name & ","
			Next
			sRecInfo = Mid(sRecInfo,1,Len(sRecInfo)-1)
			oFile.WriteLine("Fields=" & sRecInfo)
			sRecInfo = ""
		End If		
		
		j = 0
		Do While Not rs.EOF
			j = j + 1
			For i = 0 To rs.Fields.Count - 1
				sRecInfo = sRecInfo & Replace(rs.Fields(i).Value,",","~") & ","									
			Next
			sRecInfo = Mid(sRecInfo,1,Len(sRecInfo)-1)
			oFile.WriteLine("Rec" & j & "=" & sRecInfo)		
			sRecInfo = ""
			rs.MoveNext
		Loop

		rs.Close

		sSQL = "SELECT * FROM tblAddressBook"
		rs.Open sSQL, sConn

		If Not rs.BOF And Not rs.EOF Then
			If Not fso.FileExists("C:\Prefs.txt") Then
				'Create File
				Set fso = CreateObject("Scripting.FileSystemObject")
				Set oFile = fso.CreateTextFile("c:\Prefs.txt", True)		
			End If
			oFile.WriteLine("[AddressBook]")
			For i = 1 to rs.Fields.Count - 1
				sRecInfo = sRecInfo & rs.Fields(i).Name & ","
			Next
			sRecInfo = Mid(sRecInfo,1,Len(sRecInfo)-1)
			oFile.WriteLine("Fields=" & sRecInfo)
			sRecInfo = ""
		End If		
		
		j = 0
		Do While Not rs.EOF
			j = j + 1
			For i = 1 To rs.Fields.Count - 1
				sRecInfo = sRecInfo & Replace(rs.Fields(i).Value,",","~") & ","									
			Next
			sRecInfo = Mid(sRecInfo,1,Len(sRecInfo)-1)
			oFile.WriteLine("Rec" & j & "=" & sRecInfo)
			sRecInfo = ""
			rs.MoveNext
		Loop

		oFile.Close
		Set oFile = Nothing
		Set fso = Nothing
		Set rs = Nothing
	End If
End If

Err.Clear