expected end of statement error

[4x2y]

The method UserFile.WriteLine seems not a function and it doesn't return a value, therefore you cannot use the & operator with it. Try to replace the line 41 with

UserFile.WriteLine objRecordSet.Fields("displayName").Value & ";" & objRecordSet.Fields("name").Value & ";" 
UserFile.WriteLine objRecordSet.Fields("st").Value & ";" 
UserFile.WriteLine objRecordSet.Fields("wwwhomepage").Value & ";" 
UserFile.WriteLine objRecordSet.Fields("description").Value]