campo_4 motlo probabilmente non esiste, fai così:

codice:
pdf.Cell 11,5,"titolo_1" ,1,0,0,1,"L"
pdf.Cell 22,5,"titolo_2" ,1,0,0,1,"L"
pdf.Cell 25,5,"titolo_3" ,1,1,0,1,"L"

Do Until objRS.EOF

pdf.Cell 11,5, ""&objRs("cognome")&"" ,1,0,"L"
pdf.Cell 22,5, ""&objRs("nome")&"" ,1,0,"L"
pdf.Cell 25,5, ""&objRs("id")&"" ,1,1,"L"
ho visto che hai commentato il codice, però come vedi finisce i 1,1,0 sono diversi, l'ultimo dell'elenco derve a "chiudere la tabella", prova così e con

codice:
sql = "SELECT * FROM dipendenti WHERE cognome='pippo' "
manca un apice singolo prima di pippi



prova e facci sapere