'Open the record file with add mode
Dim Error1 As TextWriter = New StreamWriter ("D: / Error.log", True)
Error1.WriteLine ("{0} attempt to use {1} login time {2}", user, pwd, datetime.now)
Error1.close ()
