Visual Basic - Ayuda con SQL

Saludos a todos
Como podria corregir esto?

sSQL5 = "SELECT * FROM tblNominaempleados"
sSQL5 = sSQL5 & "WHERE idplan = " & CInt(dbcNumeroPlan.Text)
sSQL5 = sSQL5 & "ORDER BY idplan;"
Set rstSantanderEmpleados = conn.Execute(sSQL5)

sSQL6 = "SELECT * FROM tblNominaQuincena ORDER BY idnumeronominafiniquito;"
Set rstSantanderQuincena = conn.Execute(sSQL6)

sSQL7 = "SELECT count(idplan) as TotalRegistros FROM tblNominaEmpleados"
sSQL7 = sSQL7 & "where idplan = cint(dbcnumeroplan.text)"
sSQL7 = sSQL7 & "order by plan;"
Set rstSantanderRegistros = conn.Execute(sSQL7)