cara, eu nao manjo de sql, mas ja precisei disso, e eu uso DAO. O exemplo que vou te passar funciona certinho. É meio arcaico, mas funciona.

 

Dim DataBranco As Integer

Do While NOT rs.EOF

   If rs.Fields("data_de_saida").Value = "" Then

       DataBranco = DataBranco + 1

   End If

Loop

MsgBox "A tabela tem " & DataBranco & "registros com data em branco.", vbOkOnly

 

Teste ai, e posta se funcionou.