Dim sqlRS As ADODB.Recordset
Dim sqlString As String	

	sqlString = "spr_user_insert @username='jan' @password='secret'"
	Set sqlRS = getRS(sqlString)
	if not sqlRS.eof then
		if sqlRS.fields("success").value = "-1" then
			msgbox sqlRS.fields("description").value 
		end if
	end if
	set sqlRS = nothing

Return