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