Visual Basic - Ayuda

necesito saber por que en esto Private Sub Agregar_Click()

If Not Rs.EOF Then
Rs.AddNew
Rs.Fields("Rut").Value = Rut_txt.Text
Rs.Update

Paso.AddItem Rut_txt
Rut_txt.Text = ""
Rut_txt.SetFocus
End If
Me manda error en el Rs.AddNew
por favor necesito una respuesta clara

Mmm... pus te comento que tu descripción del problema no es del todo claro: ¿Qué tipo de variable es Rs? ¿ADO o DAO?

Ok, en cualquier caso, hay varias opciones. La primera, es que no le estés pasando parámetros a AddNew, con lo cuál podrías violar algun campo llave en tu base de datos.

Segundo, puede ser, inclusive, que no tengas permisos de escritura en tu base de datos.

Sería bueno que me detallaras un poco más tu problema, incluyendo el mensaje que te envía.