Visual Basic - Modificar mediante VB una tabla!!

Hola, quisiera saber si alguien pueda ayudarme con un problemita que me esta quitando el sueño.

tengo una proyecto en VB muy sencillo y una Base de Datos en Access.
en el form tengo 3 text (DNI, Nombre, Apellido) y 3 botones (Buscar(seguin DNI), Agregar, Modificar)

tengo que trabajar con modulos de clases y por lo tanto tengo 2 mudulos: Persona y conectar (donde conectar lo uso para crear la coneccion)

la coneccion anda bien y los comando me funcionan todos perfectamente salbo el de "Modificar".
Probe de muchas maneras diferenetes pero no logro que ande bien
alguien podria indicarme como hacerlo???

el codigo que utilice para la funcion modificar (en el modulo "persona") es:

Public Function Modificar(DNIBusca As Long) As Persona
Dim cmdModifi As New ADODB.Command

cmdModifi.CommandText = "update tabla set DNI=?, Nombre=?, Apellido=? where DNI=?"
cmdModifi.CommandType = adCmdText

cmdModifi.Parameters.Append cmdModifi.CreateParameter("NroDNIBusca", adInteger, adParamInput, , DNIBusca)
cmdModifi.Parameters.Append cmdModifi.CreateParameter("DNI", adInteger, adParamInput, , Me.DNI)
cmdModifi.Parameters.Append cmdModifi.CreateParameter("Nombre", adVariant, adParamInput, , Me.Nombre)
cmdModifi.Parameters.Append cmdModifi.CreateParameter("Apellido", adVariant, adParamInput, , Me.Apellido)

Dim cnn As New Conectar
Dim rs As ADODB.Recordset
Set rs = cnn.ejecutarConsulta(cmdModifi)
Set Modificar = New Persona

End Function

y en el form el codigo usado es:

Private Sub cmdModifocar_Click()
Dim tmpPerso As New Persona
Dim PersonaBuscada As Persona
Set PersonaBuscada = tmpPerso.Modificar(txt1)

txt1.Text = PersonaBuscada.DNI
txtNombre.Text = PersonaBuscada.Nombre
txtApellido.Text = PersonaBuscada.Apellido

End Sub

Cuando lo corro no me tira ningun tipo de error, no pasa nada. pero no me modifica los campos!!!

Porfabor, si alguien puede ayudarme se los agradeceria mucho!!