verificar datos null

 If dr(3) Is DBNull.Value Then
                    Continue For
                End If