Visual Basic - ELIMINAR UN REGISTRO access

Saben estoy utilizando este codigo pero no funciona si alguien sabes que estoy haciendo mal, lo que quiero es Borrar un Archivo de una base de datos , la conexion de la base de datos funciona bien

Use este codigo desde COMMANDBUTTON

Utilizo SEEK para buscar el registro y verlo primero
pero no se si es correcto, ya soy nuevo en la programacion y no se como hacerlo

una ayudita por favor.

AQUI ESTA EL CODIGO CHEQUEAR
que hago mal.

If rso.RecordCount > 0 Then
rso.MoveNext
rso.Seek Array(Val(txtCodi.Text))
End If

If Not rso.EOF Then
rso!materia = txtMa.Text
rso!pieza = txtPi.Text
rso!cantida = Val(txtCa.Text)
rso!repara = txtRe.Text
rso!trabajo = txtRea.Text
rso!observa = txtOb.Text
rso!nombre = txtNo.Text
rso!fecha = txtFe.Text
rso!tienda = txtTi.Text
'rso.Update
Else
rso.Delete
rso!codigo = Val(txtCodi.Text)
rso!materia = txtMa.Text
rso!pieza = txtPi.Text
rso!cantida = Val(txtCa.Text)
rso!repara = txtRe.Text
rso!trabajo = txtRea.Text
rso!observa = txtOb.Text
rso!nombre = txtNo.Text
rso!fecha = txtFe.Text
rso!tienda = txtTi.Text
rso.MoveNext
End If

La forma correcta seria, primero mostrar los datos del registro que va a eliminar y despues que confirme la eliminacion lo borras de la BD.
Algo asi:
rso.findfirst "codigo= " & txtcodi.text
if rso.nomatch then
msgbox "Codigo Inexistente "
txtcodi.setfocus
else
txtMa.Text =rso!materia 'Mostras todos los campos del registro
txtPi.Text = rso!pieza
txtCa.Text = rso!cantida
txtRe.Text = rso!repara
...
if msgbox("Confirma que desea eliminar ?",VbYesNo,"Mensaje") = vbyes then
rso.delete
txtcodi.text=""
txtMa.Text =""
txtPi.Text = ""
txtCa.Text = ""
txtRe.Text = ""
...
txtcodi.setfocus
end if

end if

Suerte...