Código
Private Sub cmdborrar_Click()'Borra el registro seleccionado <->cn.Execute ("DELETE FROM socios where id= ") & borrarregistro, cn 'Llama a la funcion LOAD para que cargue la grilla nuevamente. 'Por lo tanto SE ACTUALIZA. Call Form_Load End Sub
El error esta en la SQL (falta el "*"). Deberia ser:
cn.Execute ("DELETE * FROM socios where id= ") & borrarregistro, cn
Saludos!