'****************************************************************** '* Value(s)passed: ..... '* Value(s)returned: ..... '* Date: 05-12-2002 '* Author: Ahmad E. Ashparie '* ___________________________________________ '* Modification Log '* Date Author Description '* ------ -------- ------------- '* '******************************************************************* Public Function InQuotes(strToPutInQuotes) 'this function will place double quotes around the string 'and returns this value to the caller Const StrQuote As String = "'" 'if string is null then return null If strToPutInQuotes = "NULL" Or strToPutInQuotes = "Null" Or strToPutInQuotes = "" Then InQuotes = StrQuote & strToPutInQuotes & StrQuote Else 'if not null then add "" around string InQuotes = StrQuote & strToPutInQuotes & StrQuote End If End Function Example: strInsert = "update andrs_db_reports" & _ " set list1= " & InQuotes(list1Text) & _ ", list2= " & InQuotes(list2Text) & _ " where report_id= " & (RecID)