Oi,
código exemplo:

SCAN
SQLInsert("INSERT INTO tabela (campos) VALUES (valores)")
ENDSCAN

PROCEDURE SQLInsert()
PARAMETERS cmdSQL
gcConnectSQLInsert="'gre','dbgre','gredb'"
STORE SQLCONNECT(&gcConnectSQLInsert) TO gnCHSQLInsert
IF gnCHSQLInsert <= 0
= MESSAGEBOX('Não pode estabelecer ligação!', 16, 'SQL Erro de Ligação!')
RETURN .f.
ENDIF
SQLEXEC(gnCHSQLInsert, cmdSQL)
wait window "A processar informação..." nowait &&timeout .1
= SQLDISCONNECT(gnCHSQLInsert)
RETURN(.t.)
ENDPROC

Espero que sirva como exemplo, obrigado,
Rui