Shaft<- "S001"
BL <- sqlQuery(myDBcon, paste("SELECT * FROM BL_FGSL WHERE Shaft_ID ='",Shaft,"'"), error = TRUE, as.is = TRUE)

library(RODBC)
library(RODBCext)

Shaft<- "S001"

BL <-
  sqlExecute(myDBcon,
             query = "SELECT * FROM BL_FGSL WHERE Valid = TRUE AND Shaft_ID = ?",
             data = list(Shaft_ID = Shaft),
             fetch = TRUE,
             stringsAsFactors = FALSE,
             error = TRUE)