txt1 = "REPLACE INTO " & DBTableName1
txt1 = txt1 & " (ID, DisAdvantage, DisE500, DisE300, DisE700, Tokheim, Wayne, ServiceCode, ErrDisc)"
txt1 = txt1 & " VALUES ('"
txt1 = txt1 & ID & "','"
txt1 = txt1 & DisAdvantage & "','"
txt1 = txt1 & DisE500 & "','"
txt1 = txt1 & DisE300 & "','"
txt1 = txt1 & DisE700 & "','"
txt1 = txt1 & Tokheim & "','"
txt1 = txt1 & Wayne & "','"
txt1 = txt1 & ServiceCode & "','"
txt1 = txt1 & ErrDisc & "')"
sql1.ExecNonQuery(txt1)