puoi sempre fare un controllo sui dati che inserisci con la funzione isDBNull

oppure inserire i valori chiudendoli in un try...catch
codice:
Try
    tim = ...
Catch ex As System.ArgumentNullException
    tim = nothing
End Try