Error Update con DataRow

Que tal, tengo un problema al querer actualizar un registro, el error me

marca
en la línea que empieza con drModClasificacion.BeginEdit() y el error que

marca
es: Referencia a objeto no establecida como instancia de un objeto.

Espero y me puedan ayudar.


Try
daModClasificacion = New SqlClient.SqlDataAdapter("Select *

Clasificacion", conn)

Dim dsModClasificacion As DataSet = New DataSet
Dim drModClasificacion As DataRow
Dim cbModClasificacion As SqlClient.SqlCommandBuilder

cbModClasificacion = New
SqlClient.SqlCommandBuilder(daModClasificacion)

daClasificacion.Fill(dsModClasificacion, "Clasificacion")

drModClasificacion.BeginEdit() 'Cuando entra aqui marca el
error.
drModClasificacion("Descripcion") = txtModifica.Text
drModClasificacion.EndEdit()

daModClasificacion.UpdateCommand > cbModClasificacion.GetUpdateCommand
daModClasificacion.Update(dsModClasificacion, "Clasificacion")
dsModClasificacion.Tables("Clasificacion").AcceptChanges()
daModClasificacion.UpdateCommand.Connection.Close()
Catch ex As Exception
MessageBox.Show("Ocurrio el siguiente Error: " & ex.Message)
Catch s As SqlClient.SqlException
MessageBox.Show("Ocurrio el siguiente Error: " & s.Message)
End Try