主题：[求助]关于在集合中增加数据，老是出错！

Dim drs As List(Of DataRow)
Dim lst1 As New List(Of String)
drs = DataTables("失效模式清单").Select("[失效源件] = '" & Tables("失效模式清单").Current("失效源件") & "'" )
If drs.Count > 0 Then
    For Each dr As DataRow In drs
        If dr.IsNull("模式序号") = False Then                       
            lst1.Add(CStr(dr("模式序号")))
        End If
    Next

End If

红色的这句代码出错，出错信息：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,失效模式维护,生成1,Click
详细错误信息：
未将对象引用设置到对象的实例。

求助，谢谢！