还有下面这一段代码:
Public Overloads Function GetDataView(ByVal SqlString As String) As DataView
        Dim daDB As SqlDataAdapter = New SqlDataAdapter(SqlString, strConn)
        Dim dsDB As DataSet = New DataSet
        daDB.Fill(dsDB, "DefTablename")
        Dim dv As DataView = New DataView(dsDB.Tables("DefTablename"))
        dsDB.Dispose()
        daDB.Dispose()
        Return dv
End Function