Visual Basic - eliminar registro con adodc

hola a todos, alguien me podria decir como elimino un registro de la base de datos con un control adodc, o como puedo eliminar un registro de la base de datos, soy nuevo en esto

tengo este codigo

adoprueba.recrodsoure="delete * from prod where codigo like '" & codigo & "'"

pero en la sgte linea me muestra un error

adoprueba.erfresh

error: la operacion no esta permitida si el objeto esta cerrado

Dim res As Integer

res = MsgBox("ELIMINA prod" & Chr(13) & "cod " & Text.Text, vbQuestion + vbYesNo, "")

if res=6 then
Adoprueba.Recordset.Delete
Adoprueba.Recordset.MoveFirst

end if