Private Function formatSQLInput(ByVal strInputEntry)

	'Remove malisous charcters
	strInputEntry = Replace(strInputEntry, "<", "<")
	strInputEntry = Replace(strInputEntry, ">", ">")
	strInputEntry = Replace(strInputEntry, """", "", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "=", "#061;", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "'", "''", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "select", "sel#101;ct", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "join", "jo#105;n", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "union", "un#105;on", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "where", "wh#101;re", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "insert", "ins#101;rt", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "delete", "del#101;te", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "update", "up#100;ate", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "like", "lik#101;", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "drop", "dro#112;", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "create", "cr#101;ate", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "modify", "mod#105;fy", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "rename", "ren#097;me", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "alter", "alt#101;r", 1, -1, 1)
	strInputEntry = Replace(strInputEntry, "cast", "ca#115;t", 1, -1, 1)

	'Return
	formatSQLInput = strInputEntry
End Function

Function SQLString(pstrData)
    SQLString = Replace(pstrData,"'","''")
End Function

Function SQLNumber(pstrData)
    Dim intLoop

    For intLoop = Len(pstrData) To 0 Step -1
        If intLoop = 0 Then
            SQLNumber = 0
            Exit Function
        End If
        If IsNumeric(Left(pstrData, intLoop)) Then
            SQLNumber = CDbl(Left(pstrData, intLoop))
            Exit Function
        End If
    Next
End Function