Visual Basic - Ayuda con Registros!!

Hola como estan.. Mi problema es que quiero actualizar datos, ya sea que tenga que arreglar cualquier dato que halla introducido en mi base de datos este es mi codigo que les envio de ejemplo para que me digan como puedo actualizar, lo tengo asi y cuando presiono el boton para actualizar hace todo bien pero hace los cambios en el primer registro, tengo 5 registros actualmente en mi base no se como hacer para que me actualizar en el registro que yo seleccione......


Private Sub Command5_Click()
'***********Declaracion de Varibles*************
Dim Controles As Object
'***********************************************
If Verificar_Datos Then
sSQL = "SELECT * FROM movimiento"
Set rs = New ADODB.Recordset
rs.Open sSQL, dbIglesia, adOpenDynamic, adLockOptimistic

rs!mconcep1 = Trim(Text2.Text)
rs!mconcep2 = Trim(Text3.Text)
rs!mmonto = mskMonto.Text
rs!mfecha = mskFecham
'*******Tipo: Entrada o Salida*******
If optES(0).Value Then
rs!mtipo = "E"
ElseIf optES(1).Value Then
rs!mtipo = "S"
End If
'*******Forma de Pago*************
If optPago(0).Value Then
rs!mfpago = "Efectivo"
ElseIf optPago(1).Value Then
rs!mfpago = "Cheque"
ElseIf optPago(2).Value Then
rs!mfpago = "Deposito"
End If
rs.Update
End Sub

Debes de tener una Llave primaria en Tu Tabla para que puedes especificar a que Campo te refieres al actualizar, siguiendo tu ejemplo te quedaría:
Es necesario que captures primero a que codigo quieres actualizar lo puedes hacer en un TextBox, te pongo en otro el codigo.

Private Sub Command5_Click()
'***********Declaracion de Varibles*************
Dim Controles As Object
Dim Tipo As String
Dim Pago As String
'***********************************************
If Verificar_Datos Then
sSQL = "SELECT * FROM movimiento Where TuLlave= " & txtLlave
Set RS = New ADODB.Recordset
RS.Open sSQL, dbIglesia, adOpenDynamic, adLockOptimistic
If RS.RecordCount > 0 Then 'Existe en tu Tabla
'*******Tipo: Entrada o Salida*******
If optES(0).Value Then
Tipo = "E"
ElseIf optES(1).Value Then
Tipo = "S"
End If
'*******Forma de Pago*************
If optPago(0).Value Then
Pago = "Efectivo"
ElseIf optPago(1).Value Then
Pago = "Cheque"
ElseIf optPago(2).Value Then
Pago = "Deposito"
End If
sSQL = "Update movimiento Set mconcep1 ='" & Trim(Text2.Text) & "',mconcep2='" & Trim(Text3.Text) & "', " & _
"mmonto= " & mskMonto.Text & ",mfecha=" & Format(mskFecham, "dd/mm/yyyy") & ", mtipo='" & Tipo & "', " & _
"mfpago='" & Pago & "' Where TuLlavePrim= " & txtLlave
dbIglesia.Execute sSQL
Else
MsgBox "Codigo No Existente", vbInformation
End If
End Sub
Nota:En caso de que no puedas ejecutarlo mandame tu codigo para adaptarlo a este cambio, saludos!!!