[Resolvido] A conversão da seqüência de caracteres '' no

quero q se ele no banco a data for null ou vazia ele coloque "1900-01-01" mas esta dando erro:

A conversão da seqüência de caracteres '' no tipo 'Date' não é válida.

Dim data_pagamento As Date
If Not (dr_sei("dtpgto") = "") Then
data_pagamento = Year(dr_sei("dtpgto")) & "-" & Month(dr_sei("dtpgto")) & "-" & Day(dr_sei("dtpgto"))
Else
data_pagamento = "1900-01-01"
End If