Lo que te dijo Culd es lo que necesitas, si los datos existen entonces ACTUALIZAS en caso contrario AGREGAS si el problema es el codigo solo di, y vemos como te ayudamos. porque creo que si esta claro bueno eso supongo. pero ya tu nos diras.
algo asi como esto:
En el Evento Click del Boton Guardar agrega estas lineas, obviamente tendras que remplazar mis palabras por las tuyas para que no te genere error
Código:
rs.Open "SELECT * FROM TuTabla WHERE TuCampo = '" & TuCajadeTexto.Text & "'", Cnn
if rs.RecordCount = 0 then
' No lo encontro agregamos aqui tendras que insertar los datos
else
'Si lo encuentra entonces actualizamos los datos
End If
es una idea ya nos contaras como te fue, si no por aqui andamos.