diff --git a/r/adbcdrivermanager/R/error.R b/r/adbcdrivermanager/R/error.R
index 66848b2e5c..a049ed9b6e 100644
--- a/r/adbcdrivermanager/R/error.R
+++ b/r/adbcdrivermanager/R/error.R
@@ -27,6 +27,7 @@ stop_for_error <- function(status, error) {
       error <- list()
     }
 
+    error$status <- status
     error$status_code_message <- .Call(RAdbcStatusCodeMessage, status)
     msg <- adbc_error_message(status, error)