Consulta sobre Record set

[degauss]

Saludos, tengo una duda.. ojala alguien me pueda ayudar.. bueno resulta que implemente un codigo algo asi mas o menos

Dim rst As New ADODB.Recordset
Set rst = New ADODB.Recordset
With rst.Fields
.Append "codigo", adVarChar, 50
.Append "descripcion", adVarChar, 100
.Append "cantidad_pendiente", adVarChar, 50
.Append "cantidad_despachada", adVarChar, 50
.Append "lote", adVarChar, 50
.Append "fecha_vencimiento", adDate
.Append "fecha_ingreso", adDate
End With
Dim f As Long
rst.Open

For f = 1 To MSFlexGrid3.Rows - 2
rst.AddNew Array("codigo", "descripcion", "cantidad_pendiente", "cantidad_despachada", "lote", "fecha_ingreso", "fecha_vencimiento"), _
Array(MSFlexGrid3.TextMatrix(f, 0), MSFlexGrid3.TextMatrix(f, 1), MSFlexGrid3.TextMatrix(f, 2), _
MSFlexGrid3.TextMatrix(f, 3), MSFlexGrid3.TextMatrix(f, 4), MSFlexGrid3.TextMatrix(f, 5), MSFlexGrid3.TextMatrix(f, 6))
Next

Basicamente para llenar un recordset y este ser ocupado en un data report.. lo que pasa es que a veces el campo de fecha (ya sea ingreso o vencimiento) a veces vienen sin valores.. cuando pasa eso me genera error y no puedo seguir...
mi pregunta es como le puedo asignar un mensaje a esos msflexgrid( 5 - 6) en caso de que vengan vacidos, ya sea una frase o algo .. o un espacio en blanco... ojala alguien me pueda ayudar... me seria de mucha ayuda.. gracias de antemano.. =D