这样:
If r.IsNull("第二列") = False AndAlso r.IsNull("第三列") = False AndAlso r.IsNull("第四列") = False AndAlso r.IsNull("第五列") = False Then
End If