Visual Basic.NET - sale un error que se muestra en diferentes partes

Option Explicit On

Imports System.Data.OleDb

Public Class clsInsertaReg

    Private da As OleDbDataAdapter

    Private ds As DataSet

    Public Function AñadeReg(ByVal cn As OleDbConnection, ByVal Tabla As String, ByVal valores() As String) As Boolean

        Dim Param As Long

        Dim I As Integer

        Dim dr As DataRow

        Try

            Param = UBound(valores) - 1

            dr = ds.Tables(Tabla).NewRow    ' en esta linea da el error

            For I = 0 To Param

                dr(I) = valores(I)

            Next

            ds.Tables(Tabla).Rows.Add(dr)

            da.Update(ds, Tabla)

            AñadeReg = True

        Catch ex As OleDb.OleDbException

            AñadeReg = False

        Finally

            If cn IsNot Nothing AndAlso cn.State <> ConnectionState.Closed Then

                cn.Close()

            End If

        End Try

    End Function

End Class

Option Explicit On

Imports System.Data.OleDb

Public Class clsInsertaReg

    Private da As OleDbDataAdapter

    Private ds As DataSet

    Private dt As DataTable

    Public Function AñadeReg(ByVal cn As OleDbConnection, ByVal Tabla As String, ByVal valores() As String) As Boolean

        Dim Param As Long

        Dim I As Integer

        Try

            Param = UBound(valores) - 1

            Dim dr As DataRow

            dr = ds.Tables("'" & Tabla & "'").NewRow     'linea donde salta a Finally

            For I = 0 To Param

                dr(I) = valores(I)

            Next

            ds.Tables("'" & Tabla & "'").Rows.Add(dr)

            da.Update(ds, "'" & Tabla & "'")

            AñadeReg = True

        Catch ex As OleDb.OleDbException

            AñadeReg = False

        Finally

            If cn IsNot Nothing AndAlso cn.State <> ConnectionState.Closed Then

                cn.Close()

            End If

        End Try

    End Function

End Class