Prueba que en tu BD el campo fecha acepte valores nulos, lo otro sería, que si no ingresas ninguna fecha en el campo, almacene la fecha actual del sistema, por defecto...
Código:
Private Sub txtfecha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtfecha.Text = "" Then
txtfecha.Text = Date
'Setfocus al siguiente textbox o control ...
End If
End If
End Sub