Visual Basic - sentencias Sql

estoy trabajando con vb 6.0 y access 2007 mi pregunta es si puedo hacer algo similar a esto:

if combo1.text = "All..." then
Sentencia = ""
else
sentencia="Labor = '" & Combo1.Text & "' "
end if

RcsOp.Open "SELECT Empresa, Long_Tal, Total_Pies, Material, P_Parcial FROM Operaciones WHERE '" & SENTENCIA & "' And fecha BETWEEN Cdate ('" & Label4.Caption & "') AND Cdate('" & Label5.Caption & "')AND (Turno like '%" & Turno & "') ", Cnn

reemplace esto (Labor = '" & Combo1.Text & "' ) por esto (SENTENCIA), no se si me dejo entender, para no tener que repetir toda la sentencia sql. Ayudenme por favor

has parametrizado la consulta pero has cometido un error

las modificaciones es lo que pongo en negrita

if combo1.text = "All..." then
Sentencia = ""
else
Sentencia="Labor = '" & Combo1.Text & "' AND "
end if

RcsOp.Open "SELECT Empresa, Long_Tal, Total_Pies, Material, P_Parcial FROM Operaciones WHERE '" & Sentencia & "' fecha BETWEEN Cdate ('" & Label4.Caption & "') AND Cdate('" & Label5.Caption & "') AND (Turno like '%" & Turno & "') ", Cnn


Tu problema es que si el campo sentencia es nulo el query quedaria

..... FROM Operaciones WHERE and fecha ........

y te daria error

NO SE ENTIENDE VA MUY DESORDENADO QUE ES LO QUE DESEAS HACER??