ftpdoo,
This code snipet should do the trick.
Private sub Text1_Validate(cancel as boolean)
if InStr(1, UCase(Text1.Text), "INSERT INTO") Then
MsgBox "Insert Into"
ElseIf InStr(1, UCase(Text1.Text), "DELETE FROM") Then
MsgBox "Delete From"
ElseIf...