Cita:
Iniciado por vicentecamesella 
Efectivamente lo tiene. Pero me parece que el error lo tienes en la consulta en el where se le tiene q colocar comilla simple en la comparacion saludos
Pienso lo mismo, si rtclie y srtsuc es una cadena de texto debe de cerrarse entre comillas simples, quedando:
Str = "select * " & _
" from backofficeMPB.dbo.VenDet" & _
" where cliente = '" & srtclie & _
"' and farmacia = " & srtsuc & "'"
Pruébalo asi a ver que tal va.