Problema para actualizar un DataGridView

[lucasmoiraghi]

Hola!! estoy realizando una aplicación de escritorio en 3 capas con VB.Net 2010 y con base de datos sql server 2005. El problema que ando teniendo es que en mi formulario tengo un DataGridView, donde se listan "tareas" con el evento load usando el procedimiento "listarTareas()", hasta ahi no genera ningun error, pero en ese mismo formulario tengo un boton "modificar" que modifica la fila que selecciono del DataGridView. Esto tampoco genera problemas, ya que modifica la tabla respectiva en la base. Ahora si, el problema es que despues de llamar al procedimiento "modificarTareas()" quiero que se actualice el DataGridView, vuelvo a llamar al procedimiento "listarTareas()" que ya habia utilizado en el load del form, pero me tira el siguiente error "el procedimiento almacenado Listar Tareas no tiene parámetros y se le han proporcionado argumentos".
Dejo el código de cada capa, a ver si me dan una mano! gracias!

Capa Interfaz :

Dim objRN As New Negocios.RN2
Private Sub TbModificarTarea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbModificarTarea.Click
Try
objRN.idTar = Grilla3.Item(0, Grilla3.CurrentRow.Index).Value.ToString
objRN.Tarea = TxtTarea.Text
objRN.ModificarTarea()
objRN.idTar = Nothing
objRN.Tarea = Nothing
TxtTarea.Clear()
objRN.ListarTareasRN(Grilla3)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Capa Negocios:

Dim objAd As New Datos.AD2
Public Sub ListarTareasRN(ByVal Grilla As DataGridView)
Try
Dim DS As DataSet
If (Grilla.DataSource Is Nothing) Then
DS = objAd.ListarTareasAD
Grilla.DataSource = DS.Tables("Tareas")
Else
Grilla.DataSource = Nothing
DS = objAd.ListarTareasAD
Grilla.DataSource = DS.Tables("Tareas")
End If
Catch ex As Exception
Throw New Exception("No se pudo cargar La Grilla")
End Try
End Sub

Capa Datos:

Dim CADENA As String = My.Settings.IG_FINALConnectionString
Dim CONECTOR As New SqlConnection(CADENA)
Dim COMANDO As New SqlCommand
Dim ADAPTADOR As New SqlDataAdapter(COMANDO)
Public Function ListarTareasAD() As DataSet
Dim DS As New DataSet
COMANDO.Connection = CONECTOR
COMANDO.CommandType = CommandType.StoredProcedure
COMANDO.CommandText = "ListarTareas"
ADAPTADOR.Fill(DS, "Tareas")
Return DS
End Function