Gracias por la respuesta, ahora funciona muy bien.
Una consulta: en el botón Guardar (btnGuardar_Click()), se puede eliminar las lineas:
Código:
Dim VarResult As Result
VarResult = conexion.Create("Contactos")
VarResult.Update
Lo he probado borrando esas lineas y funciona. Afecta en algo al codigo si se borran.
Salu2.