problemas para actualizar datos

[samyy_g]

Que tal? Buenas tardes, agradeceria quien pudiera guiarme frente al siguiente inconveniente, no tengo mucha experiencia, este es mi segundo proyecto; mi intención es mostrar a traves de un listview datos que busco por apellido en una base en access, tambien quiero actualizar informacion pero solamente de un registro en un campo a traves de un textbox ( por ejemplo de una persona el campo observacion), el problema es que cuando actulizo no solo actualiza todos los registros que muestra el listview, sino que borra la informacion que coloque anteriormente, y solo deja la nueva que cargue con el Textbox, no logro darme cuenta que estoy haciendo mal, nuevamente agradeceria a quien pudiera guiarme. Saludos y Gracias

Private Sub FrmConsultapacientes_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0; "
dbSource = "Data Source = C:\Pacientes.mdb"

con.ConnectionString = dbProvider & dbSource


End Sub


Private Sub BtBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtBuscar.Click



If TxtApellido.Text = "" Then
MessageBox.Show("Ingrese un Codigo,Apellido y Nombre del Paciente")
Else

con.Open()

Dim Listar As New OleDbCommand
Listar.Connection = con
Listar.CommandType = CommandType.Text
Listar.CommandText = "Select * FROM Paciente WHERE [Apellido] = @apellido"
Listar.Parameters.AddWithValue("@apellido", TxtApellido.Text)

Dim Lector As OleDbDataReader
Lector = Listar.ExecuteReader
Do While Lector.Read
Dim MITem As ListViewItem

MITem = LstConsulta.Items.Add(Lector("CodPaciente"))
MITem.SubItems.Add(Lector("Apellido"))
MITem.SubItems.Add(Lector("Nombre"))
MITem.SubItems.Add(Lector("Edad"))
MITem.SubItems.Add(Lector("Hta"))
MITem.SubItems.Add(Lector("Dbt"))
MITem.SubItems.Add(Lector("Alergias"))
MITem.SubItems.Add(Lector("Epoc"))
MITem.SubItems.Add(Lector("Cirugias"))
MITem.SubItems.Add(Lector("Hijos"))
MITem.SubItems.Add(Lector("Otrosantecedentes"))
MITem.SubItems.Add(Lector("Observacion"))
Loop
Lector.Close()
End If
con.Close()


End Sub


Private Sub BtGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtGuardar.Click

If LstConsulta.SelectedItems(0).Text Then


con.Open()

Dim Actualizar As New OleDbCommand
Actualizar.Connection = con
Actualizar.CommandType = CommandType.Text
Actualizar.CommandText = "Update Paciente set Observacion = '" & TxtObservacion.Text & "'"


Actualizar.ExecuteNonQuery()

End If

con.Close()

End Sub
End Class