Visual Basic - Novatillo y bases de datos

Un saludo, estoy creando una aplicacion de bibliotecas y una de las opciones es la de materia, es una base de dato con una tabla solamente, para dar de alta, modificar y borrar los registros de materia he creado un listbox y un textbox. Todo correcto pero cuando elijo modificar un registro, pincho en el lixtbox y este se coloca en el textbox, modifico dandole click a un command pero se modifica el anterior o el posterior o ese mismo. A ver si un experto en el tema sabe que puedo hacer. ahi va el codigo. En la variable x he probado con +1 y 0, pero me funciona mejor con -1. la base de datos esta sin el control adodc ni data

TablaMaterias.MoveFirst
'Calcula la posicion del item seleccionado en listamaterias
x = Val(ListaMaterias.List(ListaMaterias.ListIndex)) - 1

If AltaMaterias = "" Then
MsgBox ("Seleccione una materia para modificar"), vbInformation
AltaMaterias.SetFocus
Else
With TablaMaterias
' da el valor de x para situarlo en un registro
.Move x
.Edit
.Fields("materias") = AltaMaterias
.Update
End With
End If
ListaMaterias.Clear
TablaMaterias.MoveFirst
Call actualizarmaterias
AltaMaterias = ""

Function actualizarmaterias()
While Not TablaMaterias.EOF
ListaMaterias.AddItem TablaMaterias.Fields("materias")
TablaMaterias.MoveNext
Wend
End Function