Thx for help, its making sense now, if i am following you correctly here:
Dim tblName, tblPosis, tblLineMan, tblDept, tblDateJoined, tblLastWorkDate, data_source, con, sql_insert
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End...