sub db_insert_edit_Users
sql = "INSERT INTO Users" & _
"(" & _
"user_name," & _
"password," & _
") VALUES (" & to_sql(user_name,"text") & "," & _
"" & to_sql(password,"text") & "," & _
""
on error goto 0
cn.Execute(sql)
if err.Number <> 0 then
b_error = true
error_list.add...